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SUMMARY 


A computer program which simulates life and reliability of 
helicopter transmissions is presented. The helicopter transmissions 
may be composed of spiral bevel gear units and planetary gear units - 
alone, in series or in parallel. The spiral bevel gear units may have 
either single or dual input pinions, which are identical. The 
planetary gear units may be stepped or unstepped and the number of 
planet gears carried by the planet arm may be varied. The reliability 
analysis used in the program is based on the Weibull distribution lives 
of the transmission components. The computer calculates the system 
lives and dynamic capacities of the transmission components and the 
transmission. The system life is defined as the life of the component 
or transmission at an output torque at which the probability of 
survival is ninety percent. The dynamic capacity of a component or 
transmission is defined as the output torque which can be applied for 
one million output shaft cycles for a probability of survival of ninety 
percent. A complete summary of the life and dynamic capacity 
results is produced by the program. 



INTRODUCTION 


In the helicopter industry, experimental testing programs are 
used to measure the relative merits of different transmissions 
[1,2,3]. These tests are costly in terms of time and resources. The 
tests should be complemented with computer simulations of many 
possible designs, so that only optimal designs are brought forward to 
the testing stage in helicopter transmission development. 

This report describes a computer simulation program which 
models the life and reliability of a helicopter transmission. The 
computer program uses the lives and reliabilities of the individual 
components to compute the life and reliability of the transmission. 

The life and reliability models are based on the assumption 
that the transmission is adequately lubricated and well designed. 
This means that its gears have sufficient rims and are made of 
adequate materials so that premature tooth breakage will not occur. 
Also, it is assumed that the tooth form geometry and lubricant have 
been selected to prevent tip scoring. Both of these failure modes can 
be prevented [4]. 

However, surface pitting is not preventable due to the lack 
of a surface fatigue endurance limit for high strength gears. As with 
rolling element bearings, gear teeth will fail eventually in surface 
pitting even in a well designed, well lubricated transmission, 



regardless of the loads [5-11]. Thus, the life and reliability models 
for spiral bevel gear reduction and planetary gear units are based on 
the pitting fatigue life and reliability models for the bearings and 
gears in the transmission. 

In this program, a modular approach is used in which the 
force and motion analyses of the reduction are separated from the life 
and reliability analyses. The dynamic capacity models are also 
separated algebraically from the prior calculations. In this way, the 
calculations can be performed sequentially and the complexity and 
diversity of the analyzed transmissions can be increased greatly. 

The computer program can simulate a number of configurations 
of spiral bevel gear units, dual spiral bevel gear units, planetary 
gear units and combinations of units. The eight transmission 
configurations analyzed by this program are shown in figure 1. 
Configuration 3 is found in the OH-58 light duty helicopter and 
consists of a spiral bevel gear unit combined with a planetary gear 
unit. Configuration 8 is found in the Black Hawk helicopter and 
consists of parallel spiral bevel units combined with a dual spiral 
bevel gear unit. The power is then transmitted to the rotor through a 
planetary gear unit. The power inputs to the two input pinions of the 
dual spiral bevel gear unit do not have to be equal, so that the loss 
of power in one engine can be simulated. The program also allows the 
planetary gear unit to be composed of stepped or unstepped planet 
gears. The program can simulate transmissions at different power 
levels and load duty cycles. The program can calculate the lives and 
dynamic capacities of a single unit or the transmission as a whole. 
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3. Spiral Bevel & Planetary 



4. Spiral Bevel & Planetary 


& Planetary 





TRANSMISSION POWER FLOW 


In a helicopter, power is typically produced by a turbine 
engine oriented horizontally and close to the main rotor shaft. The 
rotor shaft is nearly vertical and the power from the turbine must be 
transmitted through approximately ninety degrees. The transmission 
must handle a speed reduction from the turbine engine to the rotor 
shaft in the range of 80:1. To accomplish this in a small amount of 
space, spiral bevel gear units are used in conjunction with planetary 
gear units. 

In the analysis, the spiral bevel gear units and planetary 
units are treated separately. Even though the units are treated 
separately, they must have a common counting base to allow combinations 
of lives and reliabilities. In helicopters, a significant part is the 
output rotor shaft. Therefore the common counting base in this program 
is the output torque and speed of this rotor shaft which is unchanged 
from design to design. 

In helicopters, a common configuration is a spiral bevel gear 
unit from the turbine followed by a planetary unit along the output 
shaft. There may be more than one spiral bevel gear unit in series or 
parallel and there may be more than one planetary gear unit in series 
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along the output shaft. The couplings between the units are assumed to 
be splined, only able to transmit torque loads between the units. 

Spiral Bevel Gear Unit 

For the spiral bevel gear unit there are many inputs which 
define the geometry [12]. In figure 2, the geometry which is required 
for analysis of the gear mesh is shown. The main measure of bevel size 
is the cone distance, A 0 . The cone distance is the distance from the 
apex of the bevel cones to the back edge of the tooth face. This 
distance is measured along the pitch line of the two pitch cones of the 
mating gears. The contact face width of the gear set , f, is measured 
along the same pitch line. 

To define the geometry of the pitch cones, the following inputs 
are required, number of teeth on the pinion, Np, number of teeth on the 

gear, Ng, and the shaft angle. The shaft angle is the angle between 

the input pinion shaft and the output gear shaft. The pitch angles, 
which are half the cone angle of the gear, are related by these inputs 
in the following equations. 

sin E 

tan r q = (1) 

(Np/Ng) + cos E 

sin E 

tan r p = (2) 

(Ng/Np) + cos E 
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The point of gear contact used in the analysis is the pitch point. The 
distance from the apex to the midpoint of the face locates the pitch 
point. 



The pitch diameters of the equivalent spur gear for the spiral bevel 
pinion and gear can be found by: 

D p = 2 * D 0 * sin r p (4) 

Dg = 2 * D 0 * sin r g (5) 

Also in this analysis, the teeth in the mesh at the pitch point are 

modeled as planar spur gears. Figure 3 is a composite drawing showing 
the bevel and reference spur gear. The diameter of the reference 
planar spur gear is double the backcone distance. The backcone 

distance is defined as the perpendicular distance from the pitch point 
at the midpoint of the gear face to the centerline of the gear shaft. 
The backcone distance of the pinion and gear are calculated by: 

B cp » tan r p * D 0 (6) 

Beg = tan r g * D 0 (7) 

In addition to the size and shape of the pitch surface, the 
gears are defined by the geometry of the meshing gears. In figure 4 
one sees a spiral bevel gear in the pitch plane which is tangent to the 
pitch cones at the line of contact. 
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In the figure, the spiral angle, ¥ ,is shown as the angle 
between the pitch ray and a tangent to the circular cutter at the 
mid-point of the tooth. This angle is positive for right hand advance 
of the spiral along the axis of the gear toward the cone apex. The 
figure shows a right hand spiral. In the spiral bevel mesh the pinion 
and the gear must have the same spiral angle but the hands of the 
meshing gears must be opposite. 

The diametral pitch of the teeth is defined at the mid-tooth 

radius. 


Pd 


N 


g 


2 * D 0 *sin r g 


(S) 


It can be noted that the pitches are direct functions of the numbers of 
teeth on the gears and the pitch cone geometry. Figure 5 shows the 
normal tooth geometry at the mid-plane of the tooth. Figure 5 
corresponds to section AA in figure 4. The normal pressure angle $ n , 
addendum a^, and dedendum d^, are shown at the mid-plane of a bevel 
tooth. 

The direction of rotation of the pinion is required to define 
the loads transmitted at the point of gear contact. In this paper, 
clockwise rotation is defined looking at the back of the pinion along 
the pinion shaft toward the cone apex. 

One must also specify the bearing supports of the gears. The 
two bearing configurations most commonly used, straddle and overhung, 
are shown in figure 6. In both cases distance A is the distance from 
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Figure 6 

Bearing Mounting Configuration 



the gear to the bearing closest to the apex. In case 2, distance A 
takes on a negative value. Distance 8 is defined as the distance from 
the gear to the bearing furthest away from the apex. All distances are 
measured from the mid-point of the gear to the mid-point of the 
bearing. One bearing on each shaft must be identified as a thrust 
bearing to take the axial thrust loads produced by the bevel gear mesh. 

In the case of dual inputs, the pinions and their mounting are 
considered to be identical. The only difference can be the load levels 
applied by the pinions. Figure 7 shows the twin input bevel in the 
plane of the two input shafts. 

Planetary Gear Unit 

For the planetary gear unit one must define whether the unit is 
stepped or non-stepped and the number of planets carried by the planet 
arm. Figures 8 and 9 show an unstepped and stepped planetary gear 
unit, respectively, with three planet gears. For the planetary units, 
the sun gear is the input shaft, the ring gear is fixed and the planet 
arm is the output shaft. In the case of the non-stepped planetary unit, 
the number of teeth of the sun gear, planet gear, and ring gear are 
required. Figure 10 shows a mesh of an unstepped planetary gear unit. 
In the case of a stepped planetary unit, the number of teeth on the sun 
gear, planet-sun gear, planet-ring gear, and the ring gear are 
required. The planet-sun gear is defined as the planet gear meshing 
with the sun gear in a stepped planetary gear unit. The planet-ring 
gear is the planet gear meshing with the ring gear in a stepped 
planetary gear unit. Figure 11 shows a mesh of a stepped planetary 
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Figure 8 

Unstepped Planetary Gear Unit 
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Planet-Sun Gear 
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gear unit. The diametral pitch of the gears in each mesh must be known 
to define the size of the planetary transmission. The diameter of the 
gears is found from the diametral pitch, P<j and number of teeth, N. 

0 = N / P d (9) 

Due to the motion of the planetary arm carrying the planet 
gears, each component will not see the same number of load cycles as it 
would in a fixed axis reduction. Table 1 gives the relationship 
between one output revolution and the load cycle of each component 
[13]. The ratios in this table are found by a standard planetary gear 
motion analysis. 

In all units, the mesh material strength must be known to 
calculate the dynamic capacity of the gear tooth. In the case of the 
bearings, catalog values of the dynamic capacities must be given. The 
Wei bu 1 1 exponents must be specified for each component. The load-life 
exponent must be specified for each gear. The program automatically 
assumes an exponent of 3.0 for ball bearings and an exponent of 3.333 
for roller bearings [14]. 
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TABLE 1 


Ratio of the Number of Component Load Cycles 
to One Output Shaft Revolution 
Planetary Gear Unit 


Component 


Non-Stepped 


Stepped 


Sun 

1 

n*R r 


n*(R r *R ps ) 


I 

R s 

i 

+ - 

(R$*Rpr) 

PI anet (Sun) 


R r 

1 

R r 


1 

Rp 

I 

4* 

Rpr 

Planet (Ring) 

1 

R r 


R r 


1 

_-f 

Rp 

1 

Rpr 

Ring 

1 

1 

n 

- - - 

1 

. _ _ + 

n 

Spider 

1 

1.0 

1 

+ _ 

1.0 


22 






COMPONENT LOADING 


The load on each component can be calculated from the applied 
input torque and the geometry of the components. Due to the many 
configurations of bearing and gear location, no single formula can be 
used to calculate the component load. Instead, a series of steps is 
required to obtain the component load. 

Spiral Bevel Gear Unit Loading 

The loading on the spiral bevel gear units can be analyzed by 
calculating the force developed in the gear teeth. This force can be 
divided into three orthogonal components shown in figure 12. 

These forces are the tangential load, Wt, which is produced by 
the torque on the gear shaft [12,14]. The radial load, Wr, and the 
axial load, Wa, are produced by the geometry of the gear teeth 
transmitting the tangential load. These loads are 

T o 

w t = 2 do) 

D 0 *sin r g 

* (tan 4> n * cos r q + sin * sin r Q ) 

W r = — (11) 

COS ijl 
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Figure 12 

Spiral Bevel Gear Forces 
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( 12 ) 


W-t * (tan $ n * sin r g - sin i|> * cos r g ) 

W a = 

COS 

In equation 11 and 12, the sign of the last term changes with 
respect to the spiral hand, direction of gear rotation and whether the 
gear is driving or being driven. These equations are valid for a 
driving gear with a right hand spiral which is rotating clockwise. The 
equations are also good for a driving gear with a left hand spiral 
which is rotating counterclockwise. For a driven gear, the equations 
are valid for a right hand spiral gear driven counterclockwise and a 
left hand spiral gear driven clockwise. For the four other conditions 
with power flow in the opposite direction, the signs of the equations 
are switched. 

Wt * (tan <)> n * cos r a - sin i| » * sin r a ) 

W r = 1 L. (13) 

cos ^ 

W* * (tan <j> n * sin r a + sin ip * cos r a ) 

w a = 1 L_ (14) 

cos ij> 

For a shaft angle of 90 degrees, the radial load of the pinion 
will be equal to the axial load of the gear. Also the axial load of 
the pinion will be equal to the radial load of the gear. Regardless of 
shaft angle, the tangential force will be equal on pinion and gear. 
Also, the total resultant tooth load on the pinion and the gear must be 
equal in all cases. The total resultant tooth load is given by: 
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The three force components of the gear will transmit forces to 
the support bearings. In this analysis one bearing will take the 
thrust load, transmitted axi al ly from the gear. 

F t - W a (16) 

The radial forces on the bearings are a result of the moment 
produced by the axial load on the gear, and the radial and tangential 
loads. Bearing 1 is the bearing closest to the gear cone apex. 
Bearing 2 is the bearing furthest away from the cone apex. 



(17) 

(18) 

(19) 

( 20 ) 
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Radial Load 


F r2 


( w a * Ng /( 2 * p d )) + W r * A 


A + B 


Combined Radial Load 
F rT2 




F r2 


( 21 ) 

( 22 ) 


These equations are good for any pinion and a gear loaded by 
one pinion. In the case of straddle mounted gear, distance A is 

considered to be positive. In the overhung case, distance A is 

considered negative. For the case of dual pinion input, each bearing 
carries two sets of tangential and radial loads which can be reduced 
into one tangential and radial load. The direction of the combined 
tangential and radial loads is taken to be the direction of the load 
from the contact with the right pinion. The resultant of these two 
orthogonal components is the total radial load on the bearing. The 
vectoral combination of the forces into one total radial load is shown 
in figure 13. The axial load on the bearing is the sum of the reactions 
of the right and left pinion axial gear forces. The total torque 
output from the gear is also the sum of the two pinion gear torques on 
the output gear. 

Combined Radial Load 


f r = F rr + F r ] * cos A - F^i * sin A 


Combined Tangential Load 

f T = F tr + F rl * sin A + F^] * cos A 


(23) 


(24) 
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Total Radial Load 


f rt =^ f r 2 + f t 2 ( 25 ) 

Planetary Gear Unit Loading 

In the planetary gear unit all loads on the components are 
either tangential or radial. All loads are assumed to be acting in 
the same plane. It is assumed that each planet gear carries an equal 
amount of the input torque of the sun gear. 

For the sun or planet gear, the tangential force on a tooth at 
each sun-planet gear mesh is : 


F S 


Tj 

n * R s 


(26) 


The tangential force on a tooth of the ring or planet gear in each 
ring - planet mesh is : 


f R 




(27) 


Figure 14 shows the loading on the planet gear from the sun - planet 
and ring - planet gear meshes. The total tangential force on the 
planet gear bearing is : 


F t = F R + F s 


(28) 
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Planet Gear Forces 



The bearing may also see a radial load due to the radial components 
produced by the pressure angle of the gear meshes. 


F r = Fr * tan <fr r - F$ * tan <j> s (29) 

The total load on the bearing is : 
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LIFE AND DYNAMIC CAPACITY 


Life and Dynamic Capacity Models 
Surface pitting fatigue from cyclic loading is the mode of 
failure for the components considered in this simulation program for 
the life of a helicopter transmission. Loaded surfaces of rolling 
element bearings and the gears, will fail due to surface pitting after 
a number of repeated loadings. The model used to predict failure which 
relates the number of load cycles at failure to the applied load is 
Palmgren's model. Palmgren's model was originally developed for 
rolling element bearings. It has also been applied to gear teeth in 
this computer simulation program. The Palmgren model is: 


P 



1 20 is the life of the component in millions of load cycles for a 90 
percent probability of survival [15,16]. F is the equivilent load on 
the component. C, the basic dynamic capacity, is the reference load 
for which 90 percent of a large sample of the components will survive 
one million load cycles. The exponent p is called the load-life 
factor. 
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Equation 31 is the analytical expression for a load verses life 
diagram in which there is no endurance limit. Using the Palmgren-Minor 
linear damage rule and equation 31 an equivalent nominal load for a 
component in terms of a mission spectrum of loads can be obtained as: 

(1 /p) 

/ P p \ 

F - ill * La * Fb * Lb * “• 1 (32) 

y ^a + *-b + ••• J 

Where L a is the life at load F a . 

The model for component life as a function of load has been 
combined with the Weibull distribution for probability of survival as a 
function of life at a given load for ball and roller bearings [15,16] 
and for gear teeth [5-9]. The equation resulting from the combination 
describes the life and reliability as a function of the applied 
equivalent load. The two parameter Weibull distribution is: 

• tW 

Here, S is the reliability which is also the probablity of survival. 1 
is the component life at the reliabilty S. I^q is the component life 
at 90 percent reliability, and e is the Weibull slope. 
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The transmission life and reliability models used in this 
program combine these models for the components with a strict series 
probability law that states that the probability of survival of the 
transmission is the product of the probabilities of survival of the 
components: 


S T = Si * S 2 * S 3 * ... (34) 

This strict series probablity law is justified on the basis of the high 
speed of the transmission components and the effect of loose debris. 
If any component fails, debris present in the transmission can 

accelerate wear damage of other components of the transmission. In the 
case of a transmission run until failure occurs in one component, a 
complete transmission overhaul is required. The complete overhaul is 
recommended to repair all components which could have been damaged by 
debris of the failed component. The overhaul would return the 

transmission to a high state of reliability. 

Component Dynamic Capacity 

Each bearing and gear in a transmission has a load which will 
cause ten percent of a large sample of these components to fail by 
pitting at or before one million load cycles. This is the component 
dynamic capacity. 

The dynamic capacity for bearings, C b , can be obtained from the 
manufacturer of the bearing. The load-life exponent for rolling element 
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bearings are normally taken as Pb=3.0 for ball bearings and as Pb=3.33 
for cylindrical and tapered roller bearings [19]. 

For gears, the dynamic capacity is not tabulated directly. The 
dynamic capacity of a gear tooth is proportional to the Hertzian 
contact pressure squared for applications in which the major axis of 
the contact ellipse is significantly larger than the minor axis. In 
spur gears there is line contact. With this proportionality, the 
dynamic capacity of a gear tooth, C^, can be expressed as: 

C t = B X * b (35) 

Where B1 is the material constant, b is the length of the major axis of 
the contact ellipse or line contact and £p is the curvature sum in the 
direction of gear tooth rotation. The material constant, Bj_, is the 
experimental load-stress factor, of Buckingham [17]. 

Component System Lives - Gears 

To obtain the system life of a gear in a transmission the 
component life of a single tooth of the gear has to be calculated. The 
load cycles it sees must be adjusted to the output shaft rotations 
[18,19,20], Gears with more than one loading are treated separately. 

Using a strict series reliability model we can convert 
the reliability of a single gear tooth to the reliability of a gear. 

Ng 

Sg « S t (36) 
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Where, Sg, is the probability of survival of the gear, is the 
probability of survival of the gear tooth, Ng is the number of teeth on 
the gear. If the reciprocal of this equation is taken, the result is: 



Taking the natural logarithm of the equation : 



Substituting equation 33, which relates reliability to l^g life, into 
equation 38 yields : 



Where, Lg is the life of the gear, Lg^g is the 90 percent reliability 
of the gear, is the life of the gear tooth, L t ^g is the 90 percent 
reliability life of the gear tooth, and eg is the Wei bull exponent of 
the gear. Cancelling terms and taking the equation to the (1/eg) 
power yields : 



(40) 
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The equation relating gear tooth dynamic capacity and load to gear 
tooth life is: 


Uio 



(41) 


Where, C-[ is the dynamic capacity of a gear tooth and W n is the load on 
the gear tooth. This equation can be substituted into equation 40 to 
yield. 



This equation relates gear life to tooth load. W n , is the normal tooth 
load on a single pinion input. When there is a dual pinion input to a 
gear an equivalent gear tooth load is used. Since the loads from the 
two pinions may differ, an equivalent load must be used to simulate the 
same fatigue damage as the two separate loads. To derive the 
equivalent load we use equation 32. 


F 


P P 

F a * l a + F b * L b 

L a + L b 


(1/P) 


(43) 


Substituting W n i, the right pinion normal load, and W n 2, the left 
pinion normal load, and substituting, L, for the number of cycles for 
each pinion. 
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(44) 


(45) 


This equivalent load is a weighted average of the two loads. W ne , is 
substituted for W n in the dual input. 

In equation 42 the gear tooth load cycles will not always equal 
the number of gear rotations. Also the gear rotations will not always 

equal the output shaft rotations. To get all components on the same 

counting base, a factor must be inserted. The relationship between 
output rotations, lg, and tooth load cycles, 1^, is: 

l g = p-j * It (46) 

The factor mg is a combination ratio: 

m g = mi * m g 2 (47) 

Where, m^ is the gear ratio from the unit output shaft to the final 
output shaft of the transmission, and rrigg is the ratio from tooth load 

cycles to the unit output shaft. mg 2 can be found in table 2. 
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TABLE 2 


Ratio Relating Gear Tooth Load Cycles to 
Unit Output Shaft Rotations 



sun 


n*R r j n*(R r *R s ) I 

I ( R s* «pr> I 
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If the factor mg of equation 46, is substituted into equation 
42 a relation to calculate gear life in output rotations from the gear 
tooth load is obtained. 


(l/e G ) 


There is one exception to this equation. In the case of a non-stepped 
planet gear in a planetary unit, the gear will mesh with two different 
gears. Since the planet gear meshes with two different gears, the life 
analysis must take into account the different levels of damage done in 
each gear mesh [19]. The probability of survival for the planet gear, 
Sp, is the product of the probability of survival of the teeth in the 
planet-sun mesh, Sp S and the probability of survival of the teeth in 
the planet-ring mesh, Sp r . 


S = S 

PS 


The probabilities can be combined under one power, since the power of 
the two probabilities is the same. 


Sp = (Sp S *Sp r ) 
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Take the reciprocal of the equation 


1 1 

N P 

Sp (S ps * s pr) 

Take the logarithm 


log 1 



N p * log 



( 51 ) 


(52) 


By expanding equation 52, the relation is seen to be similar to the 
Weibull distribution, equation 33: 



Substitute equation 33, relating reliability to L^o ^ nto the 

expanded equation to yield: 



Where Lp and Lp t are the lives of the planet gear and planet gear tooth 
respectively. L p io» L pslO» and L prlO are the 90 percent probability 
of survival life of the planet gear, of a gear tooth in the planet-sun 
mesh, and of a gear tooth in the planet-ring mesh respectively, eg is 
the gear Weibull exponent. Cancel terms and factor common terms: 
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Combine fractions: 



By taking the reciprocal and rearranging the terms the following 
relation is found: 



L plO 



^-prlO * LpslO 

* 



<l/e g ) 


( 58 ) 


Sustitute the mg factor for relating output revolutions to tooth load 
cycles. 
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Substitute equation 31 relating tooth life to tooth dynamic capacity 
and load. 



Where Cp r and Cp S are the dynamic capacities of a tooth in the 
planet-ring gear mesh and a tooth in the planet-sun gear mesh 
respectively. Wpr and Wp S are the load on a tooth in the planet-ring 
and planet-sun mesh respectively. p g is the load-life exponent of the 
gear. 

Component System Lives - Bearings 

Using a similar approach to the gears [18,19,20], the 

relationship obtained for bearings is: 

Lbs = Lt, (61) 

L bslO L b io 
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Where L 5 is the life of the bearing in terms of bearing cycles, Lb S is 
the life of the bearing in terms of output shaft revolutions. Lbio is 
the 90 percent reliability life in terms of bearing cycles. LbslO is 
the 90 percent reliability life in terms of output shaft revolutions. 
By substituting equation 31, which relates bearing life to bearing 
capacity and load, the relationship becomes: 



(62) 


In equation 62 the bearing load cycles will not always equal 
the number of output shaft rotations. To get all components on the 
same counting base a factor must be inserted. The relationship 
relating output rotations, Lb$, and bearing load cycles, L^, is: 

Lbs = | Lb (63) 

The factor m^, is a combination ratio: 


mb = mi * mb2 


(64) 


Where, mi, is the gear ratio from the unit output shaft to the final 
output shaft of the transmi ssion, and mb 2 is the ratio from bearing 
load cycles to the unit output shaft revolutions. mb 2 can be found in 
table 3. 

If one substitutes factor mb , equation 63, into equation 62 a 
relation is obtained which will calculate gear life in output shaft 
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TABLE 3 


Ratio Relating Bearing Load Cycles to 
Unit Output Shaft Rotations 
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rotations from the gear tooth load. The equation for the bearings 
becomes: 



The dynamic capacity of each component can now be expressed as 
an output torque. By taking the p th root of equation 31 and replacing 
the ratio of the component system capacity to the component equivalent 
load by the ratio of component system dynamic capacity to reduction 
output torque, the component system lives can be used to determine the 
component system dynamic capacities. 

(1/Pi) 

Di = (Luo) * ( T o) (66) 


These dynamic capacities are in units of output torque and express the 
output torque of the reduction at which 90 percent of a set of similar 
components will survive for one million rotations. 

Transmission Life 

To calculate the life of the transmission, the probability of 
survival of the transmission is expressed as the product of the 
probabilities of survival of the components. 
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( 67 ) 


S T = n S i 
i=l 


The reciprocal of the equation is: 


1 

S T 


n 
n 

i=l \S< 


( 68 ) 


Taking the natural logarithm of this equation: 


log /l 
S TJ 


n 


log 


(69) 


Using the Weibull distribution equation relating life to probability of 
survival, equation 33, the preceding equation becomes: 




n 


l 

i=l 



(70) 


In this equation Ly is the life of each component and of the entire 
transmission for a transmission reliabilty of Sy. This equation is not 
a strict Weibull relationship between transmission life and 
reliability. The equation would be a true Weibull distribution if all 
the Weibull exponents, e-j, were equal. This is not true since Weibull 
exponents for gears and bearings will differ from each other 
significantly. This equation can be solved for Sy as a function of 
the transmission life, Ly, and plotted on Weibull coordinates. 
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On this plot of percent probability of failure versus 
transmission, life a straight line can be fit to the model. Linear 
regression can be used to approximate the straight line. The range of 
this linear regression is for probability of suvival between fifty and 
ninety-five percent. The slope of the straight line approximation is 
the transmission Weibull exponent ey . The transmission life, Lyig, 
the life calculated from the straight line approximation at a 
reliability Sy=0.9. This Ly^g life is the life of the transmission at 
the given output torque. The equation using the transmission life ly^g 
and Weibull exponent, ey is: 

log M = log /l\ flj \ J (71) 

\ S T/ \ 0 - 9 / \ L T1o/ 

Transmission Dynamic Capacity 

The basic dynamic capacity for the transmission, Dy, is the 
output torque which will give a transmission life of one million output 
shaft rotations, at a reliabilty of 90 percent. Setting Sy=0.9 
in equation 69 yields: 

log / 1 \ = log/ ! \ n flj \ 1 (72) 

loTgj \oTji-i \l^/ 
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By canceling terms the equation becomes: 


i = I (-iLj (73) 

1=1 \ L ilQ/ 

Expressing the Palmgren load-life model .gn terms of component system 
torques and lives: 



Substitute into equation 73 
n 

1 - l 

i=l 

Cancel terms and rearrange: 



(74) 


(75) 


1 




(76) 


This equation can be solved by iteration to obtain the transmission 
dynamic capactity, Dj. 

To find the load life exponent, a series of 90 percent 
reliability lives of the transmission are calculated at output torques 
between 10 and 100 percent of the dynamic capacity. The lives are 
plotted against torque on a log versus log plot, this curve can be 
approximated by a straight line. Using a linear regression, the slope 
and value of the function at one million cycles can be found. The 
negative reciprocal of the slope is the load life exponent for the 
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transmission. The value of the function at one million cycles will be 
the dynamic capacity of the transmission corresponding to the load life 
exponent. With the values from the linear regression. The load life 
relation for the transmission is given by: 


PT 


L n° • (£) (77) 

Where, Dy is the output torque for one million output rotations, py is 
the load-life exponent and Ly^g is the 90 percent reliability life of 
the transmission. 
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PROGRAM USE 


To use the program one must define the geometry of the 
transmission. One can run the program interactively or by batch file. 
To run the program interactively, one will have to answer the prompts 
(questions) with the proper information. If a mistake is made entering 
the information according to the prompts, all is not lost. After a 
series of questions, the value of the last few will be printed out. A 
prompt will ask if you wish to change any of the previous answers. If 
one answers yes, the program will return to the beginning of the 
section and then one can input the correct information. 

The program will prompt the user with a list of eight types of 
transmissions which can be analyzed. The eight types of transmissions 
are shown in figure 15. Any one of these eight types can be analyzed. 
Once the type of transmission is chosen, the program will ask for 
information to define each gear unit making up the transmission. The 
inputs for spiral bevel gear units are asked for separately from the 
inputs for the planetary gear units. 

The inputs required for the spiral bevel gear unit are divided 
into three main parts: the geometry of the gear mesh, the mounting of 
the bearings and gears, and the characteristics of the bearings. These 
three sets of inputs can be found in table 4, 5, and 6 respectively. 
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TABLE 4 


Inputs to Define the Geometry of the 
Spiral Bevel Gear Unit Gear Mesh 


1. Number of teeth of the pinion 

2. Number of teeth of the gear 

3. The Cone distance of the gear mesh (in) 

4. Face width of the gear mesh (in) 

5. Normal pressure angle (deg) 

6. Spiral angle of the gear mesh (deg) 

7. Spiral hand of the gear mesh 

8. Shaft angle between the pinion shaft centerline and the gear 

shaft centerline (deg) 

9. Shaft angle between dual pinion inputs (deg) 

(dual pinion inputs only) 

10. Input speed of pinion shaft (rpm) 

11a. Input torque of the pinion shaft (lb-in) 
lib. Input torque of the right pinion shaft (lb-in) 

Input torque of the left pinion shaft (lb-in) 

(dual pinion inputs only) 

12. Direction of input torque 

13. Gear mesh material constant 

14. Gear mesh Weibull exponent 

15. Gear mesh Load-Life exponent 


TABLE 5 

Inputs to Define the Mounting of the 
Spiral Bevel Gear Unit Bearings and Gears 


1. The case of mounting - either straddle or overhung mounting 

2. Distance A - Gear to bearing closest to the gear mesh apex 

3. Distance B - Gear to bearing furthest from the gear mesh apex 

4. The bearing which takes the thrust load 
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TABLE 6 


Inputs to Define the Characteristics of the 
Spiral Bevel Gear Unit 3earings 


The bearings can be of the following types: 

1. Single row ball bearings 

2. Double row ball bearings 

3. Single row roller bearings 

4. Double row roller bearings 

5. Single row tapered roller bearings 

6. Double row tapered roller bearings 

For types 1 and 2 - Single and Double row ball bearings the inputs 
required are : 

1. Number of rolling elements in the bearing 

2. Diameter of the rolling elements in the bearing (in) 

3. Bearing contact angle (deg) 

4. Basic dynamic capacity (lbs) 

5. Rotational factor (inner race or outer race rotation) 

6. Wei bull exponent 

7. Life adjustment factor 

For types 3 and 4 -Single and Double row roller bearings the inputs 
required are : 

1. Basic dynamic capacity (lbs) 

2. Rotational factor (inner race or outer race rotation) 

3. Weibull exponent 

4. Life adjustment factor 

For types 5 and 6 -Single and Double row tapered roller bearings 
the inputs required are : 

1. Thrust ratio 

2. Basic dynamic capacity (lbs) 

3. Weibull exponent 

4. Life adjustment factor 
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In the planetary gear unit, the inputs will be for either an 
unstepped planetary or a stepped planetary. The stepped planetary 
gear unit will require extra inputs to define the stepped planet 
gears. Inputs for a planetary gear unit are found in table 7. 

In the program, the spiral bevel gear unit and planetary gear 
unit analysis are done in separate parts. The method of analysis is 
the same in both parts. First the geometry of the gears is completed 
from the information given and the geometric relations. Next the loads 
on each component of the unit are calculated. The life of the 
conponent is calculated from the load on the component and the load 
cycle ratio of the component. The dynamic capacity is then calculated 
for each component. From the calculated lives of the components, the 
life and the Weibull exponent of the transmission is found by 
iteration. The program next figures a series of transmission lives 
verses output torques between 10 and 100 percent transmission dynamic 
capacity. Using a linear approximation of the output load verses life 
of the transmission, the transmission dynamic capacity and load-life 
exponent is found. Figure 16 is a basic flow chart of the program. 
Appendix C contains the computer listing for the program. 

In the output of the program one will find the complete 
dimensions of the gear meshes and the forces on the components. Also 
the component system lives and dynamic capacities are in the output. 
The transmission life and dynamic capacity are the final results 
produced by the program. Table 8 lists the format of the transmission 
analysis results. 
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TABLE 7 


Inputs to Define the Geometry of the 
Planetary Gear Unit 


1. Basic dynamic capacity of planet bearing (lbs) 

2. Rotational factor (inner race or outer race rotation) 

3. Wei bull exponent for the planet bearing 

4. Load-life exponent for the planet bearing 

5. Life adjustment factor for the planet bearing 

6. Number of planet bearings 

7. Is the diametral pitch the same for the sun and ring gear ? 

When the pitches are the same : 

7a. Diametral pitch of the meshes 
When the pitches are different : 

7b. Diametral pitch of the sun-planet mesh 
Diametral pitch of the ring-planet mesh 

8. Is the pressure angle the same for the sun and ring gear ? 
When the pressure angle is the same : 

3a. Pressure angle of the meshes (deg) 

When the pressure angles are different : 

8b. Pressure angle of the sun-planet mesh (deg) 

Pressure angle of the ring-planet mesh (deg) 

9. Number of teeth on the sun gear 

10. Face width of the sun gear (in) 

11. Wei bull exponent for the sun-planet mesh 

12. Load-life exponent for the sun-planet mesh 

13. Material constant for the sun-planet mesh 

14. Does the transmission have stepped planet gears ? 

When the planets are unstepped : 

14a. Number of teeth on the unstepped planet gear 
When the planets are stepped : 

14b. Number of teeth on planet gear meshed with sun gear 
Number of teeth on planet gear meshed with ring gear 

15. Number of teeth on the ring gear 

16. Face width of the ring-planet mesh (in) 

17. Weibull exponent of the ring-planet mesh 

18. Load-life exponent of the ring-planet mesh 

19. Input torque (lb-in) 

20. Input speed (rpm) 
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Pick type of transmission 

1. Spiral Bevel 

2. Planetary 

3. Spiral Bevel + Planetary 

4. Spiral Bevel + Planetary 

+ Planetary 

5. Dual Spiral Bevel 

6. Dual Spiral Bevel + Planetary 

7. Dual Spiral Bevel + Planetary 

+ Planetary 

8. Spiral Bevel + Dual Spiral Bevel 

+ PI anetary 


Input: input shaft torque and speed 


Input: geometry of gears 


Check if geometry is correct; 
If not: re-enter gear geometry 


Input: geometry of bearings 


Check if geometry is correct; 

If not: re-enter bearing geometry 


Figure 16 

Computer Program Flow Chart 
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Complete calculation of geometry 


Calculate output torque 
and speed of transmission 


Calculate loads on the components 


Calculate lives of the components 


Calculate dynamic capacities 
of the components 


Iterate for 15 to L50 lives 
of the transmission, and 
do a linear regression to find the L10 life 
and Weibull exponent of the transmission 


Figure 16 continued 


Computer Program Flow Chart 
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Estimate 10% of the dynamic capacity 
of the transmission 


Start loop to calculate lives for 
torques between 10% and 100% 
of the dynamic capacity 


Calculate loads on the components 



Calculate lives of the components 


Iterate for L5 to L50 lives of the 
transmission, and do a linear regression 
to find the L10 life of the transmission 


Do a linear regression on life versus load 
to find the transmission dynamic capacity 
and load-life exponent 


Figure 16 continued 
Computer Program Flow Chart 





Print out component lives 
and dynamic capacities 


Print out transmission 
life and dynamic capacity 


Figure 16 continued 
Computer Program Flow Chart 
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TABLE 8 


Output of the Program 


For each gear unit the following will be output: 

1. The gear mesh geometry 

2. The gear mounting geometry 

3. The forces on the gears and bearings 

For each component the following will be output: 

1. Component system dynamic capacity 

2. Component system load-life exponent 

3. Component system life in output shaft rotations 

4. Component system life in hours 

5. Component system Weibull exponent 

For the transmission the following will be output 

1. Transmission system dynamic capacity 

2. Transmission system load-life exponent 

3. Transmission system life in output shaft rotations 

4. Transmission system life in hours 

5. Transmission system Weibull exponent 
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NUMERICAL EXAMPLE 


In the design of a transmission the components are sized from 
the power transfer requirement. The initial design does not consider 
the effects of the components on one another. The initial design 
contains some overdesigned and weak parts. One can change the 
parameters on the overdesigned and weak components to see the overall 
effect in the transmission. 

In this example, the transmission being designed is a 320 
horsepower single input helicopter transmission. The input speed is 
6180 rpm and the output speed is 354 rpm. The L^g life of the 
transmission is to be approximately 3500 hours at the rated power 
level. 

The layout chosen for this transmission is a spiral bevel unit 
followed by an unstepped planetary unit, figure 17. The spiral bevel 
unit will produce a gear reduction of 3.736 : 1. The input torque 

will be transferred through 95 degrees from an approximately 

horizontal input to a vertical output shaft. Table 9 lists the 
geometry of the spiral bevel unit. The planetary unit will produce a 
gear reduction of 4.66 : 1 along the output shaft. Table 10 lists the 

geometry of the planetary unit. Appendix A shows how the input is 
entered into the program for this original design. 



Helicopter Transmission 



TABLE 9 

Spiral Bevel Gear Unit Input For Numerical Example 
Gear mesh geometry 


Number of teeth on the pinion 19 

Number of teeth on the gear 71 

Cone distance 5.199 in. 

Normal pressure angle 20. deg. 

Face width 1.8 in. 

Spiral angle 25 deg. 

Clockwise rotation 
Left hand spiral 

Shaft angle 95 deg. 

Gear mesh material constant 35000. psi 

Gear mesh weibull exponent 2.5 

Gear mesh load-life expoent 4.3 


Pinion mounting 

Straddle mount with bearing 2 taking thrust load 


Distance A 1.3 in. 

Distance B 2.5 in. 

Pinion bearing 1 
Single row roller bearing 

Basic dynamic capacity 14000. lbs. 

Rotational factor (inner race rotation) 1.0 

Weibull exponent 1.5 

Bearing life adjustment factor 2.5 

Pinion bearing 2 
Double row ball bearing 

Number of rolling elements 14 

Diameter of rolling elements .5625 in. 

Contact angle 35 deg. 

Basic dynamic capacity 25000. lbs 

Rotaional factor (inner race rotation) 1.0 

Weibull exponent 1.5 

Bearing life adjustment factor 2.5 


Gear mounting 

Overhung mount with bearing 2 taking thrust load 
Distance A 0.9 in. 

Distance B 2.6 in. 


65 



Table 9 Continued 


Gear bearing 1 


Single row roller bearing 


Basic dynamic capacity 

20000. lbs 

Rotation factor (inner race rotation) 

1.0 

Weibull exponent 

1.5 

Bearing life adjustment factor 

2.5 


Gear bearing 2 
Double row ball bearing 


Number of rolling elements 

25 

Diameter of rolling elements 

.375 in. 

Contact angle 

27 deg. 

Basic dynamic capacity 

19076 lbs 

Rotaional factor (inner race rotation) 

1.0 

Weibull exponent 

1.5 

Bearing life adjustment factor 

2.5 
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TABLE 10 


Planetary Gear Unit Input For Numerical Example 


Basic dynamic capacity of bearings 

20895 

lbs. 

Bearing Life adjustment factor 

2.5 


Rotational factor (inner race rotation) 

1.0 


Weibull exponent 

1.5 


Load- life exponent 

3.33 


Number of planet bearings 

3 


Number of teeth on sun gear 

27 


Number of teeth on planet-sun gear 

35 


Number of teeth on planet-ring gear 

35 


Number of teeth on ring gear 

99 


Diametral pitch of sun gear mesh 

8.8710 


Diametral pitch of ring gear mesh 

9.1429 


Pressure angle of sun gear mesh 

20 

deg. 

Pressure angle of ring gear mesh 

14.0682 deg. 

Face width of sun gear mesh 

3.178 

in. 

Face width of ring gear mesh 

2.540 

in. 

Weibull exponent of sun gear mesh 

2.5 


Weibull exponent of ring gear mesh 

2.5 


Load-life exponent of sun gear mesh 

4.3 


Load-life exponent of ring gear mesh 

4.3 


Material constant of sun gear mesh 

20800. 

psi 

Material constant of ring gear mesh 

20800. 

psi 
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The program was run with the geometry described in table 9 and 
10. The output of the program can be found in appendix S. The program 
first calculates the loading on each component in the transmission. 
This intermediate step of calculating the life of the components is 
useful to a designer. If the designer changes the geometry of the 
transmission the loads on the components will change. The change in 
loading of the component will change the life of the component without 
changing the dynamic capacities of the components. 

After the intermediate step of calculating the loads, the 
program computes the life of each component. The dynamic capacity of 
each component is calculated next. The life and Weibull exponent is 
then calculated for the spiral bevel unit, planetary unit, and the 
total transmission. Finally the dynamic capacity and load life 
exponent is calculated for the spiral bevel unit, planetary unit, and 
the total transmission. 

The intermediate calculation of life and dynamic capacity of 
the spiral bevel unit and the planetary unit are valuable since a 
change within one unit will not effect the components in the other 
unit. Therefore the effects of design change within a unit are readily 
observed. 

The values of the total transmission life and dynamic capacity 
will help the designer determine the critical elements in the 
transmission by comparing the values for the transmission to the life 
and dynamic capacity of each unit. Table 11 shows the values of dynamic 
capacity, load-life exponent, life in output rotations, life in hours, 
and Weibull exponent for the initial design. By checking the values of 
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Table 11 

Life and Dynamic Capacity of Transmission 
Design 1 


Component 

dynamic 

capacity 

load-life 

exponent 

life in 

output 

rotations 

life in 
hours 

Weibul 1 
exponent 

Spiral Bevel 

Unit 

77,327 

4.02 

17*10E6 

797 

2.27 

Input Pinion 

79,215 

4.3 

20*10E6 

957 

2.5 

Input Bearing 1 

194,082 

3.3 

194*10E6 

9,140 

1.5 

Input Bearing 2 

446,909 

3.0 

1.469*10E9 

69,124 

1.5 

Output Gear 

95,272 

4.3 

44*10E6 

2,111 

2.5 

Output Bearing 1 

139,135 

3.3 

64*10E6 

3,047 

1.5 

Output Bearing 2 

163,966 

3.0 

72*10E6 

3,413 

1.5 

Planetary Unit 

136,760 

3.43 

70*10E6 

3,370 

1.509 

Planet Bearing 

175,807 

3.3 

147*10E6 

6,929 

1.5 

Sun Gear 

174,807 

4.3 

605*10E6 

28,474 

2.5 

Ring Gear 

3,970,348 

4.3 

415*10E12 

19*1 0E9 

2.5 

Planet-Ring Gear 

233,424 

4.3 

2. 122*10E9 

99,815 

2.5 

Planet-Sun Gear 

4,433,816 

4.3 

668*10E12 

31*1 0E9 

2.5 

Total 

Transmi ssion 

76,841 

3.966 

16*E6 

758 

2.2 
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the spiral bevel unit and planetary unit against the values for the 
total transmission, it can be seen that the spiral bevel unit values 
are very close to the transmission values. This is also illustrated in 
figure 18. The spiral bevel unit dominates the life and dynamic 
capacity of the total transmission. Therefore it is the weakest part of 
the transmission. By further examination it can be seen that the life 
and dynamic capacity of the spiral bevel unit is dominated by the input 
pinion and output gear. The value of these components are much lower 
than any other component in the system, therefore a redesign of the 
gear mesh would be recommended. 

In this example the size of the spiral bevel gear mesh was 
increased. The size of the cone distance, A 0 , was increased from 5.199 
inches to 8.5 inches, and the face width, f, was increased from 1.8 
inches to 3.5 inches. This redesign causes an increase in spiral bevel 
unit life of 400 percent and an increase in transmission life of 300 
percent. The results of this redesign are shown in table 12. The life 
verses probability of failure graph for this case is shown in figure 
19. 

The life of the transmission is still less than the life 
required in the specifications. Since the life of the spiral bevel 
unit and planetary unit are about equal, the lives of both units will 
have to be increased. In the spiral bevel unit, the output bearings 
have the lowest life. In this case the dynamic capacity of the 
bearings are increased. For the planetary unit the planet bearings 
have the lowest life. There are two choices to increase the life of 
the planet bearing, either increase the number of planet bearings or 
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Figure 18 

Life Versus Probability of Failure Design 1 
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Table 12 


Life and Dynamic Capacity of Transmission 
Re-Design 1 


Component 

dynamic 

capacity 

load-1 ife 
exponent 

life in 

output 

rotations 

life in 
hours 

Wei bu 1 1 
exponent 

Spiral Bevel 

Unit 

156,406 

3.15 

78*10E6 

3,631 

1.5 

Input Pinion 

379,730 

4.3 

1.720*10E10 

81*1 0E4 

2.5 

Input Bearing 1 

292,227 

3.3 

750*10E6 

35,278 

1.5 

Input Bearing 2 

707,016 

3.0 

5.819*10E9 

273,692 

1.5 

Output Gear 

456,416 

4.3 

3. 794*10E10 

18*10E5 

2.5 

Output Bearing 1 

177,080 

3.3 

143*1 0E6 

6,754 

1.5 

Output Bearing 2 

191,072 

3.0 

1 14*1 0E6 

5,402 

1.5 

Planetary Unit 

136,760 

3.43 

70*10E6 

3,370 

1.50 

Planet Bearing 

175,807 

3.3 

147*10E6 

6,929 

1.5 

Sun Gear 

174,807 

4.3 

605*1 0E6 

28,474 

2.5 

Ring Gear 

3,970,348 

4.3 

415*1 0E1 2 

19*1 0E9 

2.5 

Planet-Ring Gear 

233,424 

4.3 

2 . 122*1 0E9 

99,815 

2.5 

Planet-Sun Gear 

4,433,816 

4.3 

668*10E12 

31*10E9 

2.5 

Total 

Transmi ssion 

125,832 

3.31 

47*10E6 

2,199 

1.5 
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Figure 19 

Life Versus Probability of Failure Re-Design 1 
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increase the dynamic capacity of the bearings. In this case the number 
of bearings is increased. The life of the bearings will increase 
because the load on each bearing will be lower. This also increases 
the life of the other components in the planetary since the loads 
transmitted by each planet gear will be lower. 

The results of this redesign are shown in table 13. The life 
verses probability of failure graph for this case is shown in figure 
20. The modifications doubled the life of each unit. The life of the 
total transmission increased to 4500 hours which is above the design 
requirement of 3500 hours. By examining the Wei bull and load-life 
exponents one can see that the design is dominated by the life of the 
bearings. The Weibull and load-life exponents are very close to the 
most common exponent values of bearings. This indicates that the life 
and dynamic capacity of the transmission are dominated by the bearings. 
This is a good test to find which components dominate the life of the 
transmission or any unit in the transmission. 

The results of each following design run will give a great deal 
of information on which design changes can be based. These design 
changes will allow the designer to approach an optimal transmission 
design. 
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Table 13 


Life and Dynamic Capacity of Transmission 
Re-Design 2 


Component 

dynamic 

capacity 

load-life 

exponent 

life in 

output 

rotations 

life in 
hours 

Weibul 1 
exponent 

Spiral Bevel 

Unit 

190,350 

3.19 

153*10E6 

7,208 

1.5 

Input Pinion 

379,730 

4.3 

1. 720*10E10 

81*10E4 

2.5 

Input Bearing 1 

292,227 

3.3 

750*10E6 

35,278 

1.5 

Input Bearing 2 

707,016 

3.0 

5. 81 9*1 OE 9 

273,692 

1.5 

Output Gear 

456,416 

4.3 

3. 794*10E10 

18*10E5 

2.5 

Output Bearing 1 

212,497 

3.3 

262*10E6 

12,328 

1.5 

Output Bearing 2 

250,409 

3.0 

258*10E6 

12,159 

1.5 

Planetary Unit 

171,938 

3.43 

152*10E6 

7,158 

1.50 

Planet Bearing 

234,410 

3.3 

384*10E6 

18,077 

1.5 

Sun Gear 

217,442 

4.3 

1.564*10E9 

73,578 

2.5 

Ring Gear 

4,951,214 

4.3 

1.070*10E15 

50*10E9 

2.5 

Planet-Ring Gear 

311,232 

4.3 

7.312*10E9 

343,900 

2.5 

Planet-Sun Gear 

5,911,754 

4.3 

2.300*10E15 

11*10E9 

2.5 

Total 

Transmission 

156,765 

3.32 

96*10E6 

4,526 

1.5 
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Figure 20 

Life Versus Probability of Failure Re-Design 2 
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DISCUSSION OF RESULTS 


This computer program was developed to model the life and 
reliability of helicopter transmissions. The calculation of the life 
of a transmission is based on a strict series probability law. The 
strict series probability law states that the probability of survival 
of a transmission is the product of the probabilities of survival of 
all the components. The relationship between the probability of 
survival of a component and its life is the two parameter Wei bull 
distribution. The resulting reliability model for the transmission is 
also a two parameter Wei bull distribution. 

The computer program is written in a modular form to model 
many different types of transmissions. In addition to results for the 
overall transmission, intermediate results for modules of the 
transmission are given. 

Input to the computer program is to be given in an 
interactive format. The program prompts the user with questions which 
ask for the parameters required to describe the transmission. In this 
interactive format, a screen by screen review of the input data is 
provided to the user. If any data on the screen is incorrect, the 
user may return to the input stream at a point just prior to this 
screen to input this data correctly. If more than one design is to be 
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modeled at a time, an input data file may be used to speed up the use 
of the program. The user can change one parameter in a data file and 
quickly run the program again to determine the effects of this change 
on the components and the transmission. 

The output of the computer program gives a complete overview 
of the transmission analysis. The geometry of the components entered 
into the program and the geometry calculated for the components are 
both printed out. Lives and dynamic capacities of the components are 
printed out in terms of component cycles and loads and in terms of 
system cycles and load. Each result listed in the output includes a 
title and the proper units. 

By using the program in a systematic manner, a user can 
approach an optimal design. An example of this use is given in the 
proceeding chapter to illustrate the use of the program. Sample input 
and output listings are included in the first two appendices. The 
third appendix is a listing of the fortran source code for the 
program. 
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SUMMARY OF RESULTS 

This report describes a computer simulation program which 
models the life and reliability of a helicopter transmission. The 
computer program uses the lives and reliabilities of the individual 
bearings and gears in the transmission to compute the life and 
rel iabil ity of the transmission. This model is a strict series 
probabil ity model which is based on the pitting fatigue life and 
reliability models for the components of the transmission. 

In this program, a modular approach is used in which the 
force and motion analyses of the transmission are separated from the 
life and reliability analyses. The dynamic capacity models are also 
separated algebraically from the prior calculations. In this way, the 
calculations can be performed sequentially and the complexity and 
diversity of the analyzed transmissions can be increased greatly. 

The computer program can simulate a number of transmission 
configurations built up from spiral bevel gear units, a dual spiral 
bevel gear unit and stepped or unstepped planetary gear units. The 
eight transmission configurations analyzed by the program are: 

1) a spiral bevel reduction, 

2) a planetary reduction, 

3) a spiral bevel reduction followed by a planetary reduction. 
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4) a spiral bevel reduction followed by two planetary reductions 

in series, 

5) a dual spiral bevel reduction with two input pinions of equal 

size, 

6) a dual spiral bevel unit followed by a single planetary 

reduction, 

7) a dual spiral bevel unit followed by two planetary reductions 

in series, and 

8) a dual spiral bevel unit followed by a planetary reduction and 

proceeded by two spiral bevel input reductions. 

The program allows any planetary unit to be composed of 

stepped or unstepped planets. It can simulate transmission designs at 
different power levels and load duty cycles. The program can 

calculate the lives and dynamic capacities of a single unit or the 
transmission as a whole. 

This report includes a development of the theory behind the 
program model, a listing of the program in fortran source code and 
examples illustrating the use of the program. 
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APPENDIX A 


PROGRAM INPUT 


HELICOPTER TRANSMISSION ANALYSIS 

ENTER THE NUMBER FOR THE TYPE OF TRANSMISSION 


SPIRAL BEVEL 1 

PLANETARY 2 

SPIRAL BEVEL + PLANETARY..... 3 

SPIRAL BEVEL + PLANETARY + PLANETARY .4 

DUAL SPIRAL BEVEL ..5 

DUAL SPIRAL BEVEL + PLANETARY 6 

DUAL SPIRAL BEVEL + PLANETARY + PLANETARY. 7 


SPIRAL BEVEL + DUAL SPIRAL BEVEL + PLANETARY. . .8 
3 

WHAT IS THE INPUT TORQUE OF THE TRANSMISSION 
3262 

WHAT IS THE INPUT SPEED OF THE TRANSMISSION 
6180 


SPIRAL BEVEL GEAR UNIT INPUTS 


DO YOU WISH TO USE A DATA SET 
ANSWER YES OR NO 
NO 

WHAT IS THE NUMBER OF TEETH ON THE PINION 

19 

WHAT IS THE NUMBER OF TEETH OF THE GEAR 
71 

WHAT IS THE CONE DISTANCE OF THE GEAR MESH 
5.1999 

WHAT IS THE NORMAL PRESURE ANGLE (DEG) 

20 

WHAT IS THE FACE WIDTH OF THE GEAR MESH (IN) 

1.8 

WHAT IS THE SPIRAL ANGLE OF THE PINION 
25 
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WHAT IS THE DIRECTION OF PINION ROTATION 
LOOKING FROM THE APEX TO THE FACE OF THE PINION 
(COUNTERCLOCKWISE INPUT 1) 

(CLOCKWISE INPUT -1 ) 

-1 

WHAT IS THE HAND OF THE SPIRAL ANGLE ON THE PINION 
(RIGHT INPUT 1) 

(LEFT INPUT -1) 

-1 

WHAT IS THE SHAFT ANGLE BETWEEN THE CENTER LINE OF THE 
PINION SHAFT AND THE CENTER LINE OF THE GEAR SHAFT (DEG) 
95 

WHAT IS THE MESH MATERIAL CONSTANT (PSI) 

35000 

WHAT IS THE MESH WEIBULL EXPONENT 
2.5 

WHAT IS THE MESH LOAD-LIFE FACTOR 
4.3 

WHAT IS THE LIFE ADJUSTMENT FACTOR OF THE BEARINGS 
2.5 

19.000 

71.000 
5.19990 

20.00000 
1.80000 

25.00000 
- 1.00000 
- 1.00000 

95.00000 

35000.00000 

2.50000 
4.30000 

DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 

PINION MOUNTING 

WHICH CASE OF BEARING PLACEMENT IS BEING USED 
CASE # 1 


BEARING 

-GEAR—- 


—BEARING 

#1 



#2 

* A 

* 

--B-- 

* 

CASE # 2 




GEAR 1 

SEARING- 


—BEARING 


#1 


#2 

* A 

* 



# 

— B 



1 




WHICH BEARING 

CARRIES 

THE 

THRUST LOAD 

BEARING #1 OR 

BEARING 

#2 



2 


NUMBER OF TEETH ON PINION 
NUMBER OF TEETH ON GEAR 
CONE DISTANCE 
NORMAL PRESSURE ANGLE 
FACE WIDTH 
SPIRAL ANGLE 
DIRECTION OF ROTATION 
HAND OF SPIRAL 

SHAFT ANGLE BETWEEN PINION AND GEAR 
GEAR MESH MATERIAL CONSTANT 
WEIBULL EXPONENT 
MESH LOAD LIFE FACTOR 
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ENTER DISTANCE A - DISTANCE FROM * TO * (IN) 

1.3 

ENTER DISTANCE B - DISTANCE FROM * TO * (IN) 

2.5 

CASE NUMBER 1 

BEARING TAKING THE THRUST LOAD 2 

DISTANCE A 1.3000 

DISTANCE B 2.5000 

DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 

PINION BEARING #1 

TYPE OF BEARING - ENTER NUMBER 

1 - SINGLE ROW BALL BEARING 

2 - DOUBLE ROW BALL BEARING 

3 - SINGLE ROW ROLLER BEARING 

4 - DOUBLE ROW ROLLER BEARING 

5 - SINGLE ROW TAPERED ROLLER BEARING 

6 - DOUBLE ROW TAPERED ROLLER BEARING 
3 

ENTER THE BASIC DYNAMIC CAPACITY OF BEARING 
14000 

ENTER THE ROTATION FACTOR 
1.0 FOR INNER RACE ROTATION 
1.2 FOR OUTER RACE ROTATION 

1-P 

WHAT IS THE WEIBULL EXPONENTFOR THE BEARING 

1.5 


TYPE OF BEARING 3 

NUMBER OF ROLLING ELEMENTS 0.00000 

DIAMETER OF ROLLING ELEMENTS 0.00000 

CONTACT ANGLE (BALL BEARING ONLY] 0.00000 

RADIAL TO THRUST RATIO 

(TAPER ROLLER BEARING ONLY) 0.00000 

BASIC DYNAMIC CAPACITY 14000.00000 

ROTATION FACTOR 1.00000 

WEIBULL EXPONENT 1.50000 


DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 

PINION BEARING #2 

TYPE OF BEARING - ENTER NUMBER 

1 - SINGLE ROW BALL BEARING 

2 - DOUBLE ROW BALL BEARING 

3 - SINGLE ROW ROLLER BEARING 

4 - DOUBLE ROW ROLLER BEARING 

5 - SINGLE ROW TAPERED ROLLER BEARING 

6 - DOUBLE ROW TAPERED ROLLER BEARING 

2 
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NUMBER OF BALLS OR ROLLERS 
14 

DIAMETER OF BALLS OR ROLLERS 
.5625 

BEARING CONTACT ANGLE 
35 

ENTER THE BASIC DYNAMIC CAPACITY OF BEARING 
25000 

ENTER THE ROTATION FACTOR 
1.0 FOR INNER RACE ROTATION 
1.2 FOR OUTER RACE ROTATION 
1 . 

WHAT IS THE WEIBULL EXPONENT FOR THE BEARING 
1.5 


TYPE OF BEARING 2 

NUMBER OF ROLLING ELEMENTS 14.00000 

DIAMETER OF ROLLING ELEMENTS 0.56250 

CONTACT ANGLE (BALL BEARING ONLY! 35.00000 

RADIAL TO THRUST RATIO 

(TAPER ROLLER BEARING ONLY) 0.00000 

BASIC DYNAMIC CAPACITY 25000.00000 

ROTATION FACTOR 1.00000 

WEIBULL EXPONENT 1.50000 


DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 

GEAR MOUNTING 

WHICH CASE OF BEARING PLACEMENT IS BEING USED 


CASE # 1 
BEARING 

— GEAR— — 

—BEARING 

#1 


#2 

* A--- 

* B-- 

* 

CASE # 2 

gear 

—BEARING 

—BEARING 


#1 

#2 

* A— 

* 


# 

B 

# 

2 




WHICH BEARING CARRIES THE THRUST LOAD 
BEARING #1 OR BEARING #2 
2 

ENTER DISTANCE A - DISTANCE FROM * TO * (IN) 
.9 

ENTER DISTANCE B - DISTANCE FROM * TO * (IN) 

2.6 
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2 
2 

-0.9000 
2.6000 

DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 

PINION BEARING #1 

TYPE OF BEARING - ENTER NUMBER 

1 - SINGLE ROW BALL BEARING 

2 - DOUBLE ROW BALL BEARING 

3 - SINGLE ROW ROLLER BEARING 

4 - DOUBLE ROW ROLLER BEARING 

5 - SINGLE ROW TAPERED ROLLER BEARING 

6 - DOUBLE ROW TAPERED ROLLER BEARING 
3 

ENTER THE BASIC DYNAMIC CAPACITY OF BEARING 
20000 

ENTER THE ROTATION FACTOR 
1.0 FOR INNER RACE ROTATION 
1.2 FOR OUTER RACE ROTATION 
1.0 

WHAT IS THE WEIBULL EXPONENTFOR THE BEARING 
1.5 


CASE NUMBER 

BEARING TAKING THE THRUST LOAD 
DISTANCE A 
DISTANCE B 


TYPE OF BEARING 3 

NUMBER OF ROLLING ELEMENTS 0 

DIAMETER OF ROLLING ELEMENTS 0 

CONTACT ANGLE (BALL BEARING ONLYl -0 

RADIAL TO THRUST RATIO 

(TAPER ROLLER BEARING ONLY) 0 

BASIC DYNAMIC CAPACITY 20000 

ROTATION FACTOR 1 

WEIBULL EXPONENT 1 


DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 

PINION BEARING #2 

TYPE OF BEARING - ENTER NUMBER 

1 - SINGLE ROW BALL BEARING 

2 - DOUBLE ROW BALL BEARING 

3 - SINGLE ROW ROLLER BEARING 

4 - DOUBLE ROW ROLLER BEARING 

5 - SINGLE ROW TAPERED ROLLER BEARING 

6 - DOUBLE ROW TAPERED ROLLER BEARING 

2 
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00000 

00000 

00000 

00000 

00000 

00000 

50000 



NUMBER OF BALLS OR ROLLERS 
25 

DIAMETER OF BALLS OR ROLLERS 
.375 

BEARING CONTACT ANGLE 
27 

ENTER THE BASIC DYNAMIC CAPACITY OF BEARING 
19076 

ENTER THE ROTATION FACTOR 
1.0 FOR INNER RACE ROTATION 
1.2 FOR OUTER RACE ROTATION 
1 . 

WHAT IS THE WEIBULL EXPONENT FOR THE BEARING 
1.5 


TYPE OF BEARING 2 

NUMBER OF ROLLING ELEMENTS 25.00000 

DIAMETER OF ROLLING ELEMENTS 0.37500 

CONTACT ANGLE (BALL BEARING ONLY! 27.00000 

RADIAL TO THRUST RATIO 

(TAPER ROLLER BEARING ONLY) 0.00000 

BASIC DYNAMIC CAPACITY 19076.00000 

ROTATION FACTOR 1.00000 

WEIBULL EXPONENT 1.50000 


DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS 
ENTER 1 TO CHANGE 
0 


PLANETARY GEAR UNIT INPUTS 


DO YOU WISH TO USE A DATA FILE (YES OR NO) 

NO 

PLANETARY TRANSMISSION RELIABILTY ANALYSIS 
(ALL NUMERICAL INPUT MUST BE IN F-FORMAT) 

WHAT IS THE BASIC DYNAMIC CAPACITY OF ONE PLANET BEARING? (LB) 

20895 

WHAT IS THE COMPOSITE LIFE ADJUSTMENT FACTOR? 

2.5 

WHAT IS THE OUTER RACE ROTATION FACTOR? 

1.0 

WHAT IS THE WEIBULL FACTOR FOR THE BEARINGS? 

1.5 

WHAT IS THE LOAD-LIFE FACTOR FOR THE BEARINGS? 

3.33 

HOW MANY PLANET BEARINGS ARE IN THE TRANSMISSION? 

3 
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IS THE DIAMETRAL PITCH THE SAME FOR BOTH MESHES? 

NO 

ENTER THE DIAMETRAL PITCH OF THE SUN MESH FIRST, 

THEN, ENTER THE DIAMETRAL PITCH OF THE RING MESH. (TEETH/IN) 
8.8710 
9.1429 

HOW MANY TEETH DOES THE SUN GEAR HAVE ON IT? 

27 

IS THE PRESSURE ANGLE FOR THE SUN MESH AND 
THE RING MESH THE SAME? 

NO 

ENTER THE PRESSURE ANGLE FOR THE SUN MESH FIRST, 

THEN ENTER THE PRESSURE ANGLE OF THE RING MESH. (DEG) 

20 

14.0682 

WHAT IS THE FACE WIDTH OF THE SUN MESH? (IN) 

3.178 

WHAT IS THE WE I BULL EXPONENT OF THE SUN MESH? 

2.5 

WHAT IS THE LOAD-LIFE FACTOR OF THE SUN MESH? 

4.3 

WHAT IS THE MATERIAL CONSTANT OF THE SUN MESH? (PSI) 

20800 

DOES THE TRANSMISSION HAVE STEPPED PLANETS? 

YES 

ENTER THE NUMBER OF TEETH ON ONE PLANET MESHED 
WITH THE SUN, THEN ENTER THE NUMBER OF TEETH ON THE 
PLANET MESHED WITH THE RING. 

35 

35 

HOW MANY TEETH ARE ON THE RING GEAR? 

99 

WHAT IS THE FACE WIDTH OF THE RING GEAR MESH? (IN) 

2.540 

WHAT IS THE WEIBULL EXPONENT OF THE RING GEAR MESH? 

2.5 

WHAT IS THE LOAD-LIFE FACTOR OF THE RING GEAR MESH? 

4.3 

WHAT IS THE MATERIAL CONSTANT OF THE RING GEAR MESH? (TEETH/IN) 

20800 
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APPENDIX B 


PROGRAM OUTPUT 


SPIRAL BEVEL GEAR UNIT 


GEAR MESH CHARACTERISTICS 
PITCH 

NORMAL PRESSURE ANGLE 
SPIRAL ANGLE 

HAND OF THE SPIRAL OF THE PINION GEAR 
FACE WIDTH 
CONE DISTANCE 

INPUT SPEED OF THE PINION SHAFT 
OUTPUT SPEED OF GEAR SHAFT 
DIRECTION OF INPUT SHAFT ROTATION 
INPUT TORQUE OF THE PINION SHAFT 
OUTPUT TORQUE OF THE GEAR SHAFT 
ANGLE BETWEEN INPUT AND OUTPUT SHAFT 


PINION CHARACTERISTICS AND MOUNTING 


NUMBER OF TEETH 

PITCH ANGLE 

PITCH DIAMETER 

REFERENCE PITCH DIAMETER 

ADDENDUM 

DEDENDUM 

FORCES ON A TOOTH IN THE MESH 

AXIAL FORCE 
RADIAL FORCE 
TANGENTIAL FORCE 
TOTAL FORCE 

DYNAMIC CAPACITY IN FORCE 


8.39 

20.00 

25.00 
- 1.000 

1.800 IN 
5.200 IN 

6180.00 RPM 
1653.80 RPM 

- 1.000 

3262.00 IN-LB 
12189.58 IN-LB 

95.00 DEG 


19.00 
15.27 DEG 
2.26 IN 
1.174 IN 
0.144 IN 
0.230 IN 


991.4 LB 
-1469.9 LB 
-2881.0 LB 
3382.8 LB 
4712.7 LB 
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MOUNTING CHARACTERISTICS 

TYPE OF MOUNTING 
DISTANCE A 
DISTANCE B 

AXIAL LOAD 

RADIAL LOAD 

TANGENTIAL LOAD 

TOTAL EQUIVALENT FORCE 

BASIC DYNAMIC CAPACITY OF BEARING #1 

AXIAL LOAD 

RADIAL LOAD 

TANGENTIAL LOAD 

TOTAL EQUIVALENT FORCE 

BASIC DYNAMIC CAPACITY OF BEARING #2 

DYNAMIC CAPACITY IN FORCE 


GEAR CHARACTERISTICS AND MOUNTING 


NUMBER OF TEETH 

PITCH ANGLE 

PITCH DIAMETER 

REFERENCE PITCH DIAMETER 

ADDENDUM 

DEDENDUM 

FORCES ON A TOOTH IN THE MESH 

AXIAL FORCE 
RADIAL FORCE 
TANGENTIAL FORCE 
TOTAL FORCE 

DYNAMIC CAPACITY IN FORCE 

MOUNTING CHARACTERISTICS 

TYPE OF MOUNTING 
DISTANCE A 
DISTANCE B 

AXIAL LOAD 

RADIAL LOAD 

TANGENTIAL LOAD 

TOTAL EQUIVALENT FORCE 

BASIC DYNAMIC CAPACITY OF BEARING #1 


1 

1.300 

2.500 

0.00 LBS 
1262.43 LBS 
1895.38 LBS 
2277.33 LBS 
7771.4 LBS 

991.35 LBS 
207.48 LBS 
985.60 LBS 
1665.07 LBS 
13084.3 LBS 


71.00 
79.73 DEG 
8.46 IN 
23.738 IN 
0.058 IN 
0.172 IN 


-1377.9 LB 

1115.7 LB 
-2881.0 LB 

3382.8 LB 
5664.4 LB 


2 

-0.900 

2.600 

0.00 LBS 
-5135.78 LBS 
4406.21 LBS 
6766.90 LBS 
16553.4 LBS 


89 



AXIAL LOAD 

-1377.92 

LBS 

RADIAL LOAD 

4020.09 

LBS 

TANGENTIAL LOAD 

-1525.23 

LBS 

TOTAL EQUIVALENT FORCE 

5374.48 

LBS 

BASIC DYNAMIC CAPACITY OF BEARING #2 

15492.9 

LBS 


DYNAMIC CAPACITY IN FORCE 


DYNAMIC CAPACITY AND LIFE IN TERMS OF 
OUTPUT TORQUE AND SPEED 

INPUT PINION 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


79248.2031 LB-IN 
4.3000 
4.1608 
195.6793 
2.5000 


INPUT BEARING #1 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


194120.0313 LB-IN 
3.3000 
57.4310 
2700.9629 
1 . 5000 


INPUT BEARING #2 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


447005.4375 LB-IN 
3.0000 
485.2344 
22820.4141 
1 . 5000 


OUTPUT GEAR 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


95251.9375 LB-IN 
4.3000 
9.1765 
431.5667 
2.5000 


OUTPUT BEARING #1 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


139153.4688 LB-IN 
3.3000 
19.1445 
900.3616 

1 . 5000 
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OUTPUT BEARING #2 


DYNAMIC CAPACITY 163979.9688 LB-IN 

LOAD LIFE EXPONENT 3.0000 

LIFE IN MILLION OUTPUT ROTATIONS 23.9544 

LIFE IN HOURS - 1126.5688 

WE I BULL EXPONENT 1.5000 


INPUT TORQUE 12189.58008 LB-IN 

OUTPUT TORQUE 56884.71094 LB-IN 

INPUT SPEED 1653.80273 RPM 

OUTUT SPEED 354.38629 RPM 


PLANET BEARING 


NUMBER OF PLANETS 

ROTATIONAL FACTOR 

DYNAMIC CAPACITY (CATALOG VALUE) 
DYNAMIC CAPACITY (SYSTEM VALUE). 
TOTAL FORCE 

SUN GEAR 


NUMBER OF TEETH 

PITCH OF THE MESH 

PRESSURE ANGLE 

FACE WIDTH 

MATERIAL CONSTANT OF THE MESH 

DYNAMIC CAPACITY 

FORCE ON GEAR TOOTH 

RING GEAR 


NUMBER OF TEETH 99.00000 

PITCH OF THE MESH 9.14290 

PRESSURE ANGLE 14.06820 DEG 

FACE WIDTH 2.54000 IN 

MATERIAL CONSTANT OF THE MESH 20800.00000 PSI 

DYNAMIC CAPACITY 19206.60547 LBS 

FORCE ON GEAR TOOTH 2751.80518 LBS 


27.00000 
8.87100 

20.00000 DEG 
3.17800 IN 

20800.00000 PSI 
8184.11816 LBS 
2669.96924 LBS 


3.00000 

1.00000 

20895.00000 LBS 
20107.14844 LBS 
5421.77441 LBS 
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PLANET GEAR 


PLANET-SUN GEAR 


NUMBER OF TEETH 35.00000 

PITCH OF THE MESH 8.87100 

PRESSURE ANGLE 20.00000 DEG 

FACE WIDTH 3.17800 IN 

MATERIAL CONSTANT OF THE MESH 20800.00000 PSI 

DYNAMIC CAPACITY 10956.11523 LBS 

FORCE ON GEAR TOOTH.... 2669.96924 LBS 

PLANET-RING GEAR 

NUMBER OF TEETH 35.00000 

PITCH OF THE MESH 9.14290 

PRESSURE ANGLE 14.06820 DEG 

FACE WIDTH 2.54000 IN 

MATERIAL CONSTANT OF THE MESH 20800.00000 PSI 

DYNAMIC CAPACITY 21448.64063 LBS 

FORCE ON GEAR TOOTH 2751.80518 LBS 


DYNAMIC CAPACITY AND LIFE IN TERMS OF 
OUTPUT TORQUE AND SPEED 


PLANET BEARING 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


210962.1875 LB-IN 
3.3300 
78.6079 
3696.9014 
1 . 5000 


SUN GEAR 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


174365.7500 LB-IN 
4.3000 
123.5385 
5809.9727 
2.5000 
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RING GEAR 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


397034.7500 LB-IN 
4.3000 
4250.9033 
199918.5625 
2.5000 


PLANET-SUN GEAR 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


233424.2188 LB-IN 
4.3000 
433.0579 
20366.5664 
2.5000 


PLANET-RING GEAR 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


443381.5625 LB-IN 
4.3000 
6833.7959 
321391.1250 
2.5000 


SPIRAL BEVEL UNIT 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


77358.9844 LB-IN 
4.0239 
3.6746 
172.8132 
2.3646 


PLANETARY UNIT 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS' 

LIFE IN HOURS 

WEIBULL EXPONENT 


153544.4688 LB-IN 
3.5845 
36.4289 
1713.2412 
1.5850 


TOTAL TRANSMISSION 


DYNAMIC CAPACITY 

LOAD LIFE EXPONENT 

LIFE IN MILLION OUTPUT ROTATIONS 

LIFE IN HOURS 

WEIBULL EXPONENT 


77164.9063 LB-IN 
4.0005 
3.6267 
170.5630 
2.3433 
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APPENDIX C 


PROGRAM LISTING 


WRITEU, 10) 

10 FORMAT!// 

1' HELICOPTER TRANSMISSION ANALYSIS'/ 

2' ENTER THE NUMBER FOR THE TYPE OF TRANSMISSION'/ 


3' SPIRAL BEVEL 1 '/ 

4' PLANETARY 2'/ 

S' SPIRAL BEVEL + PLANETARY ...3'/ 

6' SPIRAL BEVEL + PLANETARY + PLANETARY 4'/ 

7' DUAL SPIRAL BEVEL 5'/ 

8' DUAL SPIRAL BEVEL + PLANETARY.. 6'/ 

9' DUAL SPIRAL BEVEL + PLANETARY + PLANETARY 7'/ 


1' SPIRAL BEVEL + DUAL SPIRAL BEVEL + PLANETARY. .. 8 '/ ) 

READU, *)NT 
IF (NT. EQ. 1)CALL SPBV 
IF(NT. EQ. 2) CALL PLAN 
IF (NT. EQ. 3) CALL SBPL 
IF ( NT. EQ. 4) CALL SBPLPL 
IF (NT. EQ. 5>CALL DPBV 
IF (NT. EQ. 6) CALL DBPL 
IF (NT. EQ. 7) CALL DBPLPL 
IF (NT. EQ. 8) CALL SBDBPL 
STOP 
END 

SUBROUTINE SPBV 

INTEGER CASEP, CASEG, PTL, GTL 

REAL NP, NG, NBP1, NBP2, NBGl, NBG2, MG. MG 1 < LSB 

REAL LI (6), Dl(6), El (6) , HI (6) , PI (6) , DYNUO) , LI (10) 

101 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE TRANSMISSION') 

102 FORMAT ( 'WHAT IS THE INPUT SPEED OF THE TRANSMISSION') 

WRITEU, 101) 

READ( 1, *)TI 
WRITEU, 102) 

READU, *>SI 

INPUT SPIRAL BEVEL GEAR GEOMETRY 

CALL SPBVIN(NP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, El ( 1 ), PG, 

1PHE1, PHSI 1, THETA 1, CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El (2) , ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, El (3), 
3CASEG, GTL, AG, BG. ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, El (5), 
4ITYPEG2, NBG2, DG2, ACG2. AK4, BDCAG2, RFG2, El (6), MG, GAMMA1, GAMMA, ZZ,- 
5ZZ1, DP, DG, RPD, RP, RGD, RG, HK, AOG, AOP, HT, BOG, BOP, PITCH, 

6ADJP1, ADJP2, ADJG1 , ADJG2) 
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c 


E1(4>=E1<1> 

P1(1>=PG 

P1(4)=PG 


CALCULATE OUTPUT TORQUE AND SPEED OF TRANSMISSION 

TOF=TI*MG 
SOF=SI/MG 
MG1=1. 0 

CALCULATE LIVES AND DYNAMIC CAPACITIES OF SPIRAL BEVEL 
COMPONENTS AND LIFE OF THE TRANSMISSION 

CALL SPBVCAC 

1TI, TOF, SI, SOF, MG, MG1, NP, NG, 

2 AO/ GAMMA 1/ ROT/ SPR, PHEi/ PHSIi/ ZZ1, 

3PTL, AP, BP, RP, GTL, AG/ BG, RG« 

4ITYPEP1, RFP1/ NBP1, DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 
6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, Eld), RPD, RGD, 

9PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1<2), HI (2), TOFORP1, PI (2) , BDCAPIO, D1 (2> , 

4L1 (3), HI (3), T0F0RP2, PI (3), BDCAP20, Dl(3>, 

5L1(5), Hl(5), TOFORG1, PI ( 5) , BDCAGIO, D1 (5), 

6L1 (6), HI (6) , T0F0RG2, PI (6), BDCAG20, D1 (6), 

7L1 ( 1 ) , HI ( 1 ) , DCAP, D1 ( 1 > , 

8L1 (4> , HI (4), DCAG, D1 (4), 

9LSB, HSB, ESB ) 

PRINT OUT LIVES AND DYNAMIC CAPACITIES OF COMPONENTS 

CALL SPBVOT <PD, PHE, PHSI, SPR, F, AO, SI, SOF, ROT, TI, TOF, THETA, 
1NP, GAMMA, DP, RPD, AOP, BOP, PITCH, 

2PXP, PYP, PZP, TOTFOR, DCAP, CASEP, AP, BP, 

3R1XP, R1YP, R1ZP, TOFORP1 , BDCAPIO, 

4R2XP, R2YP, R2ZP, T0F0RP2, B DCAP 20, 

5NG, ZZ, DG, RGD, AOG, BOG, 

6PXG, PYG, PZG, TOTFOR, DCAG, CASEG, AG, BG, 

7R1XG, R1YG, R1ZG, T0F0RG1 , BDCAGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 
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9D1, PI, LI, HI, El) 

C 

C ESTIMATE 10 PERCENT DYNAMIC CAPACITY OF TRANSMISSION 

C 

DMIN=D1 ( 1 ) 

DO 10 1=2,6 

10 IF(D1(I). LT. DMIN)DMIN=D1 ( I ) 

DELTATO=. 1*DMIN 
DELTAT I =DELTATO/MG 
DTI=0. 0 
DT0=0. 0 
C 

C START COUNTER FOR DYNAMIC CAPACITIES BETWEEN 10 AND 100 PERCENT 

C OF TRANSMISSION DYNAMIC CAPACITY 

C 

DO 20 1=1, 10 

DTI=DTI+DELTATI 
DTO=DTO+DELT ATO 
DYN ( I ) =DTO 
C 

C CALCULATE LIFE FOR EACH DYNAMIC CAPACITY 

C 

CALL SPBVCA( 

IDT I, DTO, SI, SOF, MG, MG 1 , NP , NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP 1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1 , ACG1, BDCAG1, AK3, El ( 5 ) , ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1(2), HI (2), T0F0RP1, PI (2), BDCAP10, D1 (2), 

4L 1(3), HI (3), T0F0RP2, PI (3), BDCAP20, D1 (3), 

5LK5), HI (5), T0F0RG1, PI (5), BDCAG10, D1 (5), 

6L1 (6) , HI (6) , T0F0RG2, PI (6), BDCAG20, Dl(6>, 

7L1 < 1 ) , HI ( 1 ) , DCAP, D1 ( 1 ) , 

8L1(4), HI (4), DC AG, D1 (4), 

9L Id), HSB 1 , ESB 1 ) 

20 CONTINUE 
C 

C CALCULATE DYNAMIC CAPACITY AND LOAD LIFE EXPONENT FOR TRANSMISSION 

C 
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CALL CAPIDYN, LI, 10, DSB, PSP) 

C 

C PRINT OUT LIFE AND DYNAMIC CAPACITY OF TRANSMISSION 
C 

WRITEd, 1220) 

1220 FORMAT ( ' TOTAL TRANSMISSION'/) 

CALL DPLHE(DSB» PSP, LSB, HSB, ESB) 

STOP 

END 

SUBROUTINE SBPL 

INTEGER CASEP, CASEG, PTL, GTL 

REAL NP, NG, NBP1, NBP2, NBG1, NBG2, MG, LSB 

REAL L1(6),D1(6), El<6>, HI (6), PI (A), DYN(IO), LI<10) 

REAL NS, NPS, NPR, NR, N. LS, LR, LPLAN 

REAL NC0MP(5), ADI (5), API (5), AL1 (5), AH1 (5), AE1 (5), ALI ( 10) 

REAL MGS, MGP, ZNCOMP C 1 1 > , ZEl(ll), ZL1 (11), LTRANS, ZLI(IO) 

101 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE TRANSMISSION') 

102 FORMAT ( 'WHAT IS THE INPUT SPEED OF THE TRANSMISSION') 

WRITEd, 101) 

READd, *)TI 
WRITEd, 102) 

READd, *)SI 
C 

C READ IN VALUES OF THE SPIRAL BEVEL UNIT 

C 

CALL SPBVININP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, Eld), PG, 

1PHE1, PHSI1, THETA 1, CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El (2), ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, El (3), 
3CASEG, GTL, AG, BG, ITYPEG1 , NBG1, DG1, ACG1, AK3, BDCAG1, RFG1 , El (5), 
4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, El (6), MG, GAMMA 1, GAMMA, ZZ, 
5ZZ1, DP, DG, RPD, RP, RGD, RG, HK, AOG, AOP, HT, BOG, BOP, PITCH, 

6ADJP1, ADJP2, ADJG1 , ADJG2) 

C 

El (4)=E1 ( 1 ) 

PI ( 1 >=PG 
P1(4)=PG 
C 

C CALCULATE OUTPUT TORQUE AND SPEED OF SPIRAL BEVEL UNIT 

C 

TOS=TI*MG 

SOS=SI/MG 

C 

C READ IN VALUES OF PLANETARY UNIT 

C 

CALL PLANIN(CB, A, V, EB, PB, N, NCOMP, PDS, PDR, NS, PHIS, PHIS1, 
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1PHIR, PHIR1, WDSM, ES, PS, BISM, I STEP, NPS, NPR, NR, WORM, ER, PR, B1RM, 

2RPR, RPS, RR, RS) 

API ( 1 )*PB 
AP 1 ( 2 ) =PS 
API (3)=PR 
API (4)=*PS 
AP 1 ( 5 ) «PR 

CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 

TOF=TOS* ( 1 . + < RR*RPS > / ( RS*RPR > ) 

SOF=SOS/ < 1 . + ( RR*RPS ) / ( RS*RPR ) > 

MGS= ( 1 . + ( RR*RPS ) / ( RS*RPR ) ) 

MGP=1. 0 

INC0MP=6+ISTEP 

DO 5 IN»1,6 

ZNCOMP < IN)=1. O 

DO 6 IN— 1, ISTEP 

ZNCOMP < IN+6 ) =NCOMP ( IN ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 
CALCULATE LIFE OF SPIRAL BEVEL UNIT 

CALL SPBVCA( 

1TI, TOF, SI, SOF, MG, MGS, NP, NG, 

2A0, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBPI, DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5). ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXP, PYP, PZP, TOTFOR, PXG. PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2), HI (2), TOFORP1, PI <2>, BDCAPIO, Dl<2>, 

4L 1(3), HI (3), T0F0RP2, PI (3), BDCAP20, D1 (3), 

5L1 (5), HI (5), TOFORGl, PI (5), BDCAGIO, Dl<5), 

6L1 (6),H1(6>, T0F0RG2, PI (6), BDCAG20, Dl<6), 

7L1 ( 1 > , HI ( 1 ) , DCAP, Dl(l), 

8L 1<4),H1(4>, DC AG, Dl<4), 

9LSB, HSB, ESB) 

PRINT OUT RESULTS FOR SPIRAL BEVEL UNIT 
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CALL SPBV0T(PD» PHE< PHSI, SPR, F, AO, SI* SOS* ROT, TI, TOS, THETA, 

1NP, GAMMA* DP, RPD, AOP* BOP* PITCH, 

2 PXP, PYP, PZP* TOTFOR* DCAP, CASEP. AP, BP* 

3R1XP, R1YP, R1ZP, TOFORP1* BDCAPIO* 

4R2XP. R2YP, R2ZP, T0F0RP2^ BDC AP20, 

5NG, ZZ* DG* RGD* AOG, BOG* 

6PXG* PYG* PZG* TOTFOR, DC AG* CASEG* AG* BG* 

7R1XG, R1YG, R1ZG, TOFORG1, B DC AGIO* 

8R2XG* R2YG* R2ZG* T0F0RG2* BDCAG20* 

9D1, PI, LI* HI, El ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 
CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANC A ( ISTEP, NCOMP, MGP, NS* NPS* NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB* A* V, PB, N, EB* FTT, 

2B1SM, PS* ES, WDSM, B1RM, PR, ER, WDRM, 

3T0S* TOF, SOS, SOF, CS* LS. FS, CR, LR, FR, ADI, AL1, AH1, AE1, 

4LPLAN, HPLAN, EPLAN > 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 

CALL PLANOT( ISTEP, N, V, CB, FB, NS, PDS, PHIS, WDSM, B1SM, FS, 

1NR, PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TOS, TOF, SOS, SOF, FTT, 

2AD1, API, AL1, AH1, AE1) 

DEFINE TRANSMISSION LIFE ARRAYS 

DO 8 IE-1,6 

ZE1 ( IE)=E1 (IE) 

ZL1 ( IE)=L1 (IE) 

DO 9 IE-1, ISTEP 

ZE1 ( IE+6)=AE1 < IE) 

ZL1<IE+6)=AL1<IE> 

CALL LIFECZL1, INCOMP, ZE1, ZNCOMP, L TRANS, ETRANS) 

HTRANS=LTRANS* 16666. 667/SOF 

START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 
CAPACITY 
DMIN=D1(1> 

DO 21 1=2,6 
21 IF(D1(I).LT. DMIN)DMIN=D1(I) 

DELTATO=. 15*DMIN 
DELT AT I =DELT ATO/MGS/MG 
DT0=0. 0 
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DTI=0. 0 
DO 22 1=1, 10 

DT I =DT I +DELT AT I 
DTO=DTO+DELT ATO 
DYN < I ) =DTO 
CALL SPBVCAt 

1DTI, DTQ, SI. SOF, MG. MGS, NP, NG, 

2A0. GAMMA1, ROT, SPR. PHE1. PHSI1. ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1, El <2), ADJP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3) , ADJP2, 
6ITYPEG1, RFG1, NBG1, DG1, ACG1 , BDCAG1, AK3, El (5), ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 
8F, E. PG. El ( 1 ) , RPD, RGD, 

9PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2) , HI (2) , T0F0RP1 , PI (2), BDCAP10, Dl<2>, 

4L1 (3) , HI (3) » T0F0RP2, PI (3) , BDCAP20, DIO), 

5L1 (5), HI (5), T0F0RG1, PI (5) , BDCAG10, Dl(5>, 

6L1 (6) , HI (6) , T0F0RG2, P 1 ( 6 ) , BDCAG20, D1 ( 6 ) , 

7L1 ( 1 ) , HI ( 1 ) , DCAP, Dl(l>, 

8L1(4), HI (4), DC AG, Dl<4>, 

9LI ( I ) , DUMB, DUMB ) 

22 CONTINUE 

CALL CAP (DYN, LI, 10, DSB.PSP) 


START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 
CAPACITY 

ADMIN=AD1<1) 

DO 23 1=2. I STEP 
23 IF(ADKI). LT. ADMIN) ADMIN=AD1 ( I ) 

DELTATO=. 1 5*ADMIN 
DELT ATOS=DELT ATO /MGS 
DT0=0. 0 
DT0S=0. O 

DO 24 1=1, 10 

DTOS=DTOS+DELTATOS 
DTQ=DTO+DELTATO 
DYN ( I ) =DTO 

CALL PLANC A ( I STEP , NCOMP, MGP, NS, NPS. NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 
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24 


2B1SM, PS, ES< WDSM, B1RM, PR. ER. WDRM. 

3DT0S. DTO. SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1 , AEl, ALI < I ) , DUMB, 
4DUMB > 

CONTINUE 

CALL CAP(DYN, ALI, 10, DPLAN, PPLAN) 


START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 
CAPACITY 


IF< ADMIN. LT. DMIN)DMIN=ADMIN 
DELTATO=. 15*DMIN 
DELT ATOS=DELT ATO /MGS 
DELT ATI =DELT ATOS/MG 
DTI=0. 0 
DTOS— O. O 
DT0=0. 0 
DO 20 1=1, 10 

DTI=DTI+DELTATI 
DTOS=DTOS+DELT ATOS 
DTO=DTO+DELTATO 
DYN ( I ) =DTO 


CALL SPBVCAt 

IDT I, DTO, SI, SOF, MG, MGS, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PH5I1, ZZ1, 

3PTL, AP, BP. RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP 1, NBP1. DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 
6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6 > , ADJG2, 

8F, E, PG. El < 1 ) , RPD, RGD, 

?PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP. R1ZP. R2XP, R2YP, R2ZP, 

2R1XG, RiYG, R1ZG, R2XG, R2YG, R2ZG, 

3L1(2),H1(2), T0F0RP1 , P 1 (2) , BDCAP10, Dl(2), 

4L1(3), HI (3), T0F0RP2, PI (3), BDCAP20. Dl(3>, 

5L1(5>. HI (5), T0F0RG1, PI (5), BDCAG10, Dl<5>, 

6L1 (6 ) , HI (6) , T0F0RG2, P 1 ( b ) , BDCAG20, Dl<6>, 

7L1 ( 1 > , HI ( 1 ) , DCAP, D1 ( 1 ) , 

8L1 (4),H1(4), DC AG, Dl<4>, 

9LI ( I ) , DUMB, DUMB) 

CALL PLANCAdSTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 
IRS. RPS, RPR, RR, CB. A, V, PB, N, EB, FTT, 


101 



2B1SM, PS, ES. WDSM, B1RM> PR, ER, WDRM. 

3DT0S, DTOi SOS. SOF. CS. LS, FS, CR, LR, FR, ADI, ALI, AHi, AE1, ALI < I ) , DUMB. 
4DUMB) 

DO 12 IE S 1, 6 

12 ZLKIE)*L1(IE) 

DO 13 IE-1. ISTEP 

13 ZL1(IE+6)=AL1(IE) 

CALL LIFE(ZL1. INCOMP. ZE1. ZNCOMP, ZLKI), DUMB) 

20 CONTINUE 

CALL CAP(DYN, ZLI, 10, DTRANS. PTRANS) 

1220 FORMAT ( 7 TOTAL TRANSMISSION'/) 

1221 FORMAT ( ' SPIRAL BEVEL UNITV) 

1222 FORMAT ( ' PLANETARY UNIT'/) 

WRITE(1, 1221) 

CALL DPLHECDSB. PSP, LSB.HSB. ESB) 

WRITE(1, 1222) 

CALL DPLHE(DPLAN. PPLAN, LPLAN, HPLAN, EPLAN ) 

WRITEd, 1220) 

CALL DPLHE( DTRANS, PTRANS. LTRANS, HTRANS, ETRANS) 

STOP 

END 

SUBROUTINE SBPLPL 

INTEGER CASEP, CASEG, PTL, GTL, BISTEP 

REAL NP, NG, NBP1, NBP2, NBG1, NBG2, MG, LSB 

REAL LI (6), D1 (6), El ( 6 ) , HI (6) , PI (6) , DYNdO > , LI <10 ) 

REAL NS, NPS, NPR, NR, N, LS, LR, LPLAN 

REAL NC0MP<5), ADI (5), API (5), ALI (5), AHI (5), AE1 (5), ALI <10 ) 

REAL MGS, MGPA, MGPB, ZNCOMP (16) , ZE1 d6> , ZLI ( 16 ) , LTRANS, ZLIdO) 
REAL BNCOMP ( 5 ) , BD 1 ( 5 ) » BP 1 ( 5 ) » BL 1 ( 5 ) , BH 1 ( 5 ) , BE1 (5), BLI ( 10) 

101 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE TRANSMISSION 7 ) 

102 FORMAT < 7 WHAT IS THE INPUT SPEED OF THE TRANSMISSION 7 ) 

WRITEd, 101) 

READd, *)TI 
WRITEd, 102) 

READd, *)SI 
C 

C READ IN VALUES OF THE SPIRAL BEVEL UNIT 

C 

CALL SPBVIN(NP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, Eld), PG, 

1PHE1. PHSI 1, THETA1. CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El <2), ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, El (3), 
3CASEG, GTL, AG, BG, ITYPEG1, NBG1.DG1, ACG1, AK3, BDCAG1, RFG1, El (5), 
4ITYPEG2, NBG2, DG2. ACG2, AK4, BDCAG2, RFG2, El (6) , MG, GAMMA1, GAMMA, ZZ, 
5ZZ1, DP, DG, RPD, RP, RGD, RG. HK, AOG, AOP, HT, BOG, BOP, PITCH, 
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6ADJP1, ADJP2, ADJG1, ADJG2) 


E1(4>*E1(1> 

P1(1)=PG 

P1(4)=PG 

CALCULATE OUTPUT TORQUE AND SPEED OF SPIRAL BEVEL UNIT 

TOS»TI*MG 

SOS*SI/MG 

READ IN VALUES OF PLANETARY UNIT 

CALL PLANINtCB, A. V, EB, PB, N, NCOMP, PDS. PDR, NS. PHIS. PHIS1. 
1PHIR, PHIR1, WDSM. ES, PS, B1SM, ISTEP, NFS, NPR, NR, WDRM, ER, PR, B1RM, 
2RPR, RPS, RR, RS) 

API ( 1 )=PB 
AP 1 ( 2 ) =PS 
API <3)*PR 
API <4)=PS 
API (5)=PR 

CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 

TOPA=TOS* ( 1 . + ( RR*RPS ) / ( RS*RPR > > 

SOPA=SOS/ ( 1 . + ( RR*RPS ) / < RS*RPR ) ) 

READ IN VALUES OF PLANETARY UNIT 

CALL PLANINCBCB, BA, BV, BEB, BPB, BN, BNCOMP, BPDS, BPDR, BNS, BPHIS, 
1BPHIS1, BPHIR, BPHIR1, BWDSM, BES, BPS, BB1SM, BISTEP, BNPS, 

2BNPR, BNR, BWDRM, BER, BPR, BB1RM, BRPR, BRPS, BRR, BRS) 

BP1 < 1 )=BPB 
BP1(2)=BPS 
BP1(3)=BPR 
BP1 (4)=BPS 
BP1 (5>=BPR 

CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 

TOF=TOPA* ( 1 . + ( BRR*BRPS ) / ( BRS*BRPR ) ) 

SOF=SOPA/ ( 1 . + ( BRR*BRPS > / < BRS*BRPR ) ) 

MGP A= ( 1 . + ( BRR*BRPS ) / ( BRS*BRPR > ) 

MGS=<1. +(RR*RPS)/(RS*RPR> >*MGPA 
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MGPB=1. 0 

I NC0MP-6+ I STEP+B I STEP 
DO 3 IN-1# 6 
3 ZNCOMP ( IN)=*1. 0 

DO 6 IN-1# ISTEP 
6 ZNCOMP< IN+6)=NC0MP< IN) 

IX=6+ISTEP 
DO 77 IN-1# BISTEP 
77 ZNCOMP ( IN+IX >=BNCOMP ( IN ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 
CALCULATE LIFE OF SPIRAL BEVEL UNIT 

CALL SPBVCA< 

1TI# TOF, SI# SOF, MG, MGS, NP, NG, 

2A0, GAMMA1, ROT, SPR, PHEi, PHSI1# ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AKi, El (2). ADJP1# 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El <6), ADJG2, 

8F, E, PG, El ( 1 > , RPD, RGD, 

9PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3LK2), Hl(2>, TOFORP1, Pl<2), BDCAPIO, Dl<2>, 

4L1 (3),' HI (3) , T0F0RP2, Pi <3), BDCAP20, Dl<3>, 

SL 1(5), HI (5), TOFORG1, PI < 5) , BDCAGIO, D1 (5), 

6L1(6), HI (6), T0F0RG2, PI (6), BDCAG20, Dl(6), 

7L1(1),H1(1>, DCAP, Dl(l>, 

8L1 (4) , HI (4) , DC AG, Dl(4>, 

9LSB, HSB, ESB) 

PRINT OUT RESULTS FOR SPIRAL BEVEL UNIT 

CALL SPBVOT <PD, PHE, PHSI, SPR, F, AO, SI# SOS, ROT, TI, TOS, THETA, 

1NP, GAMMA, DP, RPD, AOP, BOP, PITCH, 

2PXP, PYP, PZP, TOTFOR, DCAP, CASEP, AP, BP, 

3R1XP, R1YP, R1ZP, TOFORP1, BDCAPIO, 

4R2XP, R2YP, R2ZP, T0F0RP2, BDCAP20, 

5NG, ZZ, DG, RGD, AOG, BOG, 

6PXG, PYG, PZG, TOTFOR, DC AG, CASEG, AG, BG, 

7R1XG, R1YG, R1ZG, TOFORG1, BDCAGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1, PI, LI, HI, El ) 


104 



non o o c% noon ooo ortoo 


CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 
CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANCA( ISTEP, NCOMP, MGPA. NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3T0S, TOF, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1, AE1, 

4LPLAN, HPLAN, EPLAN ) 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 

CALL PLANOT ( ISTEP, N, V, CB, FB, NS, PDS, PHIS, WDSM, B1SM, FS, 

1NR. PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TOS, TOF, SOS, SOF, FTT, 

2AD1, API, AL1, AH1, AE1 > 

CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 
CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANCA( BISTEP, BNCOMP, MGPB, BNS, BNPS, BNPR, BNR, 

1BPHIS1, BPHIR1 , BRS, BRPS, BRPR, BRR, BCB, BA, BV, BPB, BN, BEB, 

2BFTT , BB1SM, BPS, BES, BWDSM, BB1RM, BPR, BER, BWDRM, 

3T0PA, TOF. SOPA, SOF, BCS, BLS, BFS, BCR, BLR, BFR, BD1, BL1, BH1, BE1, 
4BLPLAN, BHPLAN, BEPLAN) 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 

CALL PLANOT (BISTEP, BN, BV, BCB, BFB, BNS, BPDS, BPHIS, BWDSM, 

1BB1SM, BFS, BNR, BPDR, BPHIR, BWDRM, BB1RM, BFR, BNP, BNPS, BNPR, 

2T0PA, TOF, SOPA, SOF, BFTT , BD1, BP1, BL1, BH1 , BE1 ) 

DEFINE TRANSMISSION LIFE ARRAYS 

DO 8 IE-1, 6 

ZE1 ( IE)— El (IE) 

8 ZL1 ( IE)=L1 ( IE) 

DO 9 IE-1, ISTEP 

ZE1 ( IE+6 ) =AE1 ( IE ) 

9 ZL1 ( IE+6 ) =AL1 ( IE ) 

DO 99 IE-1. BISTEP 

ZE1 ( IE+6+ISTEP )=BE1 (IE) 

99 ZL1 ( IE+6+ISTEP )=BL1 (IE) 

CALL LIFE( ZL1 , INCOMP, ZE1, ZNCOMP, LTRANS, ETRANS) 

HTRANS-LTRANS* 16666. 667 /SOF 
C 
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C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

DMIN=D1<1) 

DO 21 1=2, 6 

21 IF(D1 < I ). LT. DMIN>DMIN=D1 < I > 

DELTATO=. 15*DMIN 
DELTATI=DELTATO/MGS/MG 
DT0=0. 0 

DTI=0. 0 
DO 22 1=1, 10 

DTI=DTI+DELTATI 
DTO=DTO+DELTATO 
DYN< I )=DTO 
CALL SPBVCA ( 

IDT I, DTO, SI, SOF, MG, MGS, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP 1 , DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3) , ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El <5), ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El <6), ADJG1, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9 PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1<2), HI (2), T0F0RP1, PI (2), BDCAP10, D1 (2), 

4L1 (3> ,'H1 < 3 ) » T0F0RP2, PI (3). BDCAP20, Dl(3), 

5L1 ( 5 ) , HI (5), T0F0RG1, PI (5), BDCAG10, D1 <5>. 

6L1 (6) , HI (6) , T0F0RG2, PI (6), BDCAG20, Dl<6>, 

7L1 ( 1 > , HI ( 1 ), DCAP, D1 ( 1 ) , 

8L1 (4), HI (4), DCAG, Dl(4), 

9LI<I>, DUMB, DUMB) 

22 CONTINUE 

CALL CAP(DYN, LI, 10, DSB, PSP) 

C 

C 

C 

C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

ADMIN=AD1 ( 1 ) 

DO 23 1=2, I STEP 

23 IF (ADI ( I ) . LT. ADMIN) ADMIN=AD1 ( I ) 

DELTATQ=. 15*ADMIN 
DELTATOS=DELTATO/MGS 
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DT0=0. 0 
DT0S=0. 0 

DO 24 1=1, 10 

DT0S=DT0S+DELT ATOS 
DT0=DT0+DELTAT0 
DYN ( I > =DT0 

CALL PLANCAdSTEP, NCQMP, MOPA. NS, NPS, NPR, NR, PHIS1, PH1R1. 

IRS, RPS, RPR. RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WORM, 

3DT0S, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1, AE1, ALI ( I ), DUMB, 
4DUMB) 

24 CONTINUE 

CALL CAP (DYN. ALI, 10, DPLAN, PPLAN) 

C 

C 

C 

C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

BDMIN=BD1(1) 

DO 30 1=2, B I STEP 

30 IF(BD1(I). LT. BDMIN > BDMIN=BD1 ( I > 

DELTATO= 15*BDMIN 
DELT ATOS=DELT AT 0 /MGP A 
DTO=0. 0 
DTOS=0. O 

DO 31 1 = 1, 10 

DTOS=DTOS+DELT ATOS 
DTO=DTO+DELTATO 
DYN( I )=DTO 

CALL PLANCA( BISTEP, BNCOMP, MGPB, BNS, BNPS, BNPR, BNR, BPHIS1, 

1BPHIR1. BRS, BRPS, BRPR, BRR, BCB, BA, BV, BPB, BN, BEB, BFTT , 

2BB1SM, BPS, BES, BWDSM, BB1RM, BPR, BER, BWDRM, 

3DT0S, DTO, SOP A, SOF. BCS, BLS, BFS, BCR, BLR, BFR, 

4BD1, BL1, BH1, BE1, BLI < I ) , DUMB, DUMB) 

31 CONTINUE 

CALL CAP (DYN, BLI, 10, B DPLAN, BPPLAN ) 

C 

C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

IF( ADMIN. LT. DM I N ) DM I N= ADM I N 
IF(BDMIN. LT. DMIN)DMIN=BDMIN 
DELTATO*. 1 5*DMIN 
DELTATOP=DELTATO/MGPA 
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DELT ATOS=DELT ATO / MGS 

DELTAT I =DELT ATOS / MO 

DTI=0. 0 

DT0S=0. 0 

DT0PA=0. 0 

DT0=0. 0 

DO 20 1=1, 10 

DTI=DTI+DELTATI 
DTOS=DTOS+DELT ATOS 
DTOPA=DTOPA+DELTATOP 
dto=dto+deltato 

DYN ( I ) =DTO 


CALL SPBVCAt 

IDT I, DTO, SI, SOF, MO, MGS, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1 , El <2> , ADJP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3) , ADJP2. 
6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5) , ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXP, PYP, PZP, TOTFOR, PXG, PYG, PZG, TOTFOR, 

1R1XP, R1YP, R1ZP, R2XP, R2YP, R2ZP, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2), HI (2), T0F0RP1, PI (2) , BDCAP10, Dl(2>, 

4L1 (3) , HI (3) , T0F0RP2, PI <3), BDCAP20, D1 (3), 

5L1(5), HI (5), T0F0RG1, PI (5), BDCAG10, D1 (5), 

6L1 (6) , HI (6) , T0F0RG2, PI (6), BDCAG20, Dl(6>, 

7L1 ( 1 ) , HI ( 1 ) , DCAP, D1 ( 1 > , 

8L 1(4), HI (4), DCAG, D1 (4), 

9LI(I), DUMB, DUMB) 

CALL PLANCAX ISTEP, NCOMP, MGPA, NS, NPS, NPR, NR, PHIS1, PHIR1, 
IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DT0S, DTO. SOS, SOF. CS, LS, FS, CR, LR, FR. ADI, AL1, AH1, AE1. ALI < I ) , 
4DUMB, DUMB ) 

CALL PLANCA< BISTEP, BNCOMP, MGPB, BNS, BNPS, BNPR, BNR, BPHIS1, 
1BPHIR1, BRS, BRPS, BRPR, BRR, BCB, BA, BV, BPB, BN, BEB, BFTT, 

2BB1SM, BPS, BES, BWDSM, BB1RM, BPR, BER, BWDRM, 

3DT0PA, DTO, SOP A, SOF, BCS, BLS, BFS, BCR, BLR, BFR, BD1, BL1, 

4BH1, BE1, BLI(I), DUMB, DUMB) 

DO 12 IE=1, 6 
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12 


13 

14 

20 

1220 

1221 

1222 


101 

102 

103 


C 

C 

C 


ZL1 ( IE)*L1 (IE) 

DO 13 IE=1. ISTEP 

ZL1( IE+6)=AL1( IE) 

DO 14 IE=1» BISTEP 

ZL1 ( IE+6+ISTEP )=BL1 ( IE) 

CALL LIFEtZLl. INCOMP, ZE1, ZNCOMP, ZLI!I),DUMB) 

CONTINUE 

CALL CAP!DYN» ZLI, 10, DTRANS, P TRANS ) 

FORMAT ( ' TOTAL TRANSM ISSIONV) 

FORMAT < ' SPIRAL BEVEL UNIT'/) 

FORMAT ( ' PLANETARY UNIT'/) 

WRITE! 1, 1221 ) 

CALL DPLHE(DSB, PSP, LSB, HSB, ESB) 

WRITE! 1. 1222) 

CALL DPLHE ! DPLAN, PPLAN, LPLAN, HPLAN, EPLAN ) 

WRITE! 1, 1222) 

CALL DPLHE (BDPLAN. BPPLAN, BLPLAN, BHPLAN, BEPLAN) 

WRITE! 1, 1220) 

CALL DPLHE ( DTRANS, P TRANS, LTRANS, HTRANS, ETRANS ) 

STOP 

END 

SUBROUTINE DPBV 

INTEGER CASEP, CASEG, PTL, GTL 

REAL NP, NG, NBP1, NBP2, NBG1, NBG2, MG, MG1 , LSB 

REAL L1!?),D1!9), El ! 9) , HI !9), PI !9) , DYN! 10) , LI ! 10) 

FORMAT! 'WHAT IS THE INPUT TORQUE OF THE RIGHT PINION') 

FORMAT! 'WHAT IS THE INPUT TORQUE OF THE LEFT PINION') 

FORMAT! 'WHAT IS THE INPUT SPEED OF THE TRANSMISSION') 

WRITE! 1, 101) 

READ ! 1 , *)TIR 
WRITE! 1, 102) 

READ! 1, *)TIL 
WRITE! 1, 102) 

READ! 1, *)SI 


INPUT SPIRAL BEVEL GEAR GEOMETRY 


CALL DPBVIN! NP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, El ! 1 ) . PG, 

1PHE1, PHSI 1, THETA1. CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El !2) , ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, El !3), 
3CASEG, GTL, AG. BG, ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1. RFG1, El !5), 
4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, El!6), MG, GAMMA1, GAMMA, ZZ, 
5ZZ1, DP, DG, RPD, RP, RGD, RG, HK, AOG, AOP, HT, BOG, BOP, PD, 

6ADJP1, ADJP2, ADJG1, ADJG2, ZIP) 
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EK4)=E1U> 

El <7>=E1 < 1 ) 

E1(8)=E1(2) 

E1(9)=E1<3) 

P1(1)»PG 

PK4)=PG 

P1(7)=PG 

C 

C CALCULATE OUTPUT TORQUE AND SPEED OF TRANSMISSION 

C 

TOF=T I R*MG+T I L*MG 
SOF=SI/MG 
MG1=1.0 
C 

C CALCULATE LIVES AND DYNAMIC CAPACITIES OF SPIRAL BEVEL 

C COMPONENTS AND LIFE OF THE TRANSMISSION 

C 

CALL DPBVCA( 

1TIR, TIL# TOF, SI# SOF# MG# MG1# NP, NG, 

2 AO, GAMMA 1, ROT, SPR# PHE1# PHSI1, ZZ1# ZIP# 

3PTL, AP. BP# RP, GTL# AG# BG, RG# 

4ITYPEP1, RFP1, NBP 1 , DPI# ACPI# BDCAP1# AK1# El <2># ADJP1# 
5ITYPEP2# RFP2, NBP2# DP2, ACP2# BDCAP2# AK2# El (3), ADJP2# 
6ITYPEG1, RFG1# NBG1# DG1, ACG1# BDCAG1, AK3, El (5), ADJG1, 
7ITYPEG2# RFG2, NBG2# DG2# ACG2# BDCAG2# AK4, El <6># ADJG2# 

8F, E, PG. El ( 1 ) # RPD, RGD, 

9PXPR# PYPR, PZPR, TOTFORR# PXGR# PYGR, PZGR, TOTFORGE, 

9PXPL# PYPL# PZPL# TOTFORL# PXGL# PYGL, PZGL# TOTFORGE# 

1R1XPR, R1YPR, R1ZPR# R2XPR# R2YPR# R2ZPR, 

1R1XPL, R1YPL# R1ZPL# R2XPL, R2YPL# R2ZPL# 

2R1XG# R1YG. R1ZG# R2XG# R2YG# R2ZG, 

3L1 (2). HI (2)# TOFORP1R# PI (2) # BDCAPIOR# D1 (2)# 

4L1(3), HI (3), T0F0RP2R, PI (3) # BDCAP20R# D1 (3)# 

5LK5), HI (5), TOFORG 1 # P 1 ( 5 > » BDCAGIO# D1 ( 5 ) # 

6Ll (6), HI <6># T0F0RG2# PI (6)# BDCAG20# D1 (6) , 

7L1 ( 1 ) , HI ( 1 ) , DCAPR# Did)# 

8L1 (4)# Hl(4)# DC AG# D1 (4) # 

*L1<7># HI (7), DCAPL# DK7), 

*L1 ( 8) » HI ( 8 ) # TOFORP 1L, PI (8) , BDCAPIOL# D1 (8)# 

*L1 (9) # HI (9) # T0F0RP2L, P 1 ( 9 ># BDCAPIOL# Dl(9>, 

9LSB# HSB# ESB ) 

C 

C PRINT OUT LIVES AND DYNAMIC CAPACITIES OF COMPONENTS 

C 
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CALL DPBVOT (PD» PHE, PHSI, SPR, F, AO. SI, SOF, ROT, TIR, TIL, TOF, 

1 THETA, NP, GAMMA, DP, RPD, AOP, BOP, 

2PXPR, PYPR, PZPR, TOTFORR, DC APR, CASEP, AP, BP, 

3R1XPR, R1YPR, R1ZPR, TQFORP1R, BDCAPIOR, 

4R2XPR, R2YPR, R2ZPR, T0F0RP2R, BDCAP20R, 

2PXPL, PYPL, PZPL, TOTFORL, DCAPL, CASEP, AP, BP, 

3R1XPL, R1YPL, R1ZPL, TOFORP1L, BDCAPIOL, 

4R2XPL, R2YPL, R2ZPL, T0F0RP2L, BDCAP20L, 

5NG, Z Z, DG, RGD, AOG, BOG, 

&PXGR, PYGR, PZGR, TOTFORGE, DC AG, CASEG, AG, BG, 

6PXGL, PYGL, PZGL, TOTFORGE, DC AG, CASEG, AG, BG, 

7R1XG, R1YG, R1ZG, TOFORG1 , BDCAGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1, PI, LI, HI, El ) 

ESTIMATE 10 PERCENT DYNAMIC CAPACITY OF TRANSMISSION 

DM I N=D 1(1) 

DO 10 1=2, 9 

I F ( D 1 ( I ) . LT. DM IN) DM I N=D 1 < I ) 

DELTATO=. 1*DMIN 
DELTATI=0. 5*DELT ATO/MG 
DTIR=0. 0 
DTIL=0. 0 
DT0=0. 0 

START COUNTER FOR DYNAMIC CAPACITIES BETWEEN 10 AND 100 PERCENT 
OF TRANSMISSION DYNAMIC CAPACITY 

DO 20 1=1, 10 

DT I R=DT I R+DELTAT I 
DT I L=DT I L+DELT AT I 
DTO=DTO+DELTATO 
DYN ( I ) =DTO 

CALCULATE LIFE FOR EACH DYNAMIC CAPACITY 
CALL DPBVCA ( 

1DTIR, DTIL, DTO, SI, SOF, MG, MG1, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP 1 , NBP 1 , DPI, ACPI, BDCAP1, AK1, El (2) , AD JP 1 , 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El < 3 ) , ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1 , AK3, El (5), ADJG1 , 
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7ITYPEG2, RFG2, NBG2* DG2, ACG2, BDCAG2, AK4, El <6>, ADUG2, 

8F« E, PQ, El ( 1 ) , RPDi RGD, 

9PXPR, PYPR, PZPR, TOTFQRR, PXGR, PYGR, PZGR, TQTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFQRGE. 

1R1XPR, R1YPR, R1ZPR, R2XPR. R2YPR, R2ZPR. 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL. R2ZPL, 

2R1XG< R1YG, R 1 ZG» R2XGi R2YG, R2ZG, 

3L1 (2) » HI (2) / TOFORP1R, PI (2) , BDCAP1QR. Dl(2). 

4L1 (3)» Hl(3>» T0F0RP2R, PI (3), BDCAP20R, Dl<3), 

5L1(5)»H1(5), TOFQRG1 , PI ( 5) » BDCAG1Q, Dl<5), 

6L1<6>, HI (6), T0F0RG2, PI (6), BDCAG20, Dl<6), 

7L1 ( 1 > * HI ( 1 ) , DC APR i D1 ( 1 ) , 

8L1 (4) , HI (4) , DCAGi Dl<4>, 

*L 1(7), H 1 ( 7 ) » DCAPL, D1 (7) . 

*L1 (8), HI (8), TOFORPILj Pl<8), BDCAPIOL, Dl<8>, 

*L1 ( 9 ) » Hl(9)» T0F0RP2L, PI <9) , BDCAPIOL, Dl(9>, 

9L l (.1) , HSB 1 » ESB 1 ) 

20 CONTINUE 

CALCULATE DYNAMIC CAPACITY AND LOAD LIFE EXPONENT FOR 
TRANSMISSION 

CALL CAP(DYN, LI, 10, DSB, PSP) 

PRINT OUT LIFE AND DYNAMIC CAPACITY OF TRANSMISSION 

WRITE ( 1 , 1220) 

1220 FORMAT ( ' TOTAL TRANSMISSION'/) 

CALL DPLHE<DSB, PSP, LSB, HSB, ESB) 

STOP 

END 

SUBROUTINE SBDBPL 

INTEGER CASEP, CASEG, PTL, GTL 

INTEGER CCASEP, CCASEG, CPTL, CGTL 

REAL NP, NG, NBP1, NBP2, NBG1, NBG2, MG, LSB 

REAL L 1 < 9 ) , D 1 < 9 ) , E 1 ( 9 ) , HI ( 9 ) , Pl(9)» D YN < 1 0 ) , L I ( 1 0 ) 

REAL CNP, CNG, CNBP 1 , CNBP2, CNBG1 , CNBG2, CMG, CLSB 

REAL CL1 (6), CD1 (6), CE1 (6) , CHI (6)* CP 1(6), CDYN( 10), CLI (10) 

REAL DL1 (6) , DH1 (6), DD1 (6) 

REAL NS, NPS, NPR, NR, N, LS, LR, LPLAN 

REAL NCOMP ( 5 ) , AD 1 ( 5 ) , AP 1 ( 5 ) , AL 1 < 5 ) , AH 1 < 5 ) , AE 1 ( 5 ) , ALI ( 10) 
REAL MGS, MGP, ZNC0MP(26), ZE1<26), ZL1 ( 26 ) , LTRANS, ZLI(IO) 

101 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE RIGHT PINION') 

102 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE LEFT PINION') 

103 FORMAT C 'WHAT IS THE INPUT SPEED OF THE TRANSMISSION') 
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WRITE ( 1# 101) 

READd,*)CTIR 
WRITEd, 102) 

READd, *>CTIL 
WRITEd, 103) 

READd, *>CSI 

READ IN VALUES OF THE SPIRAL BEVEL UNIT 

CALL SPBVIN<CNP» CNG, CAO, CPHE, CF, CPHSI, CROT, CSPR, CTHETA, 
ICE, CE1 d ) » CPG, CPHE1, CPHSI1, CTHETA 1. CCASEP, CPTL, CCAP, CBP, 
2CITYPEP1, CNBP1< CDP1, CACP1, CAK1, CBDCAP1, CRFP1, CE1 (2), 
3CITYPEP2, CNBP2, CDP2, CACP2, CAK2, CBDCAP2, CRFP2, CE1 <3>, 
4CCASEG, CGTL, CAG, CBG, CITYPEG1, CNBG1, CDG1, CACG1, CAK3, 
5CBDCAG1/ CRFGl, CE1 (5), CITYPEG2, CNBG2, CDG2, CACG2, CAK4, 
6CBDCAG2, CRFG2, CE1 <6>, CMG, CGAMMA1, C GAMMA# CZZ# CZZ1, CDP, 
7CDG, CRPD, CRP, CRGD, CRG, CHK, CAOG, CAOP, CHT# CBOG, CBOP# CP ITCH, 
8CADJP1# CADJP2, CADUG1# CADJG2) 


CE1 (4)=CEi < 1 > 

CPI ( 1 )=CPG 
CPI (4>=CPG 

CALCULATE OUTPUT TORQUE AND SPEED OF SPIRAL BEVEL UNIT 

TIR=CTIR*CMG 

TIL=CTIL*CMG 

SI=CSI/CMG 

INPUT SPIRAL BEVEL GEAR GEOMETRY 

CALL DPBVIN<NP, NG# AO# PHE, F# PHSI, ROT, SPR# THETA, E# El d ) , PG, 

1PHE1, PHSI1, THETA1# CASEP# PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El (2), ITYPEP2, NBP2, DP 2, ACP2, AK2, BDCAP2, RFP2, El (3), 
3CASEG, GTL, AG, BG, ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, El (5), 
4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, El (6), MG, GAMMA 1, GAMMA, ZZ, 
5ZZ1, DP, DG, RPD, RP, RGD, RG, HK, AOG, AOP, HT, BOG, BOP, PD, 

6ADJP1, ADUP2, ADJG1, ADJG2, ZIP) 

El (4)=E1 <1 > 

El (7)=E1 ( 1 ) 

El (8>=E1 (2 , 

El (9)»E1 (3> 

Pld)=PG 
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PK4)=PG 

pi(7)*pe 

CALCULATE OUTPUT TORQUE AND SPEED OF TRANSMISSION 

TOS-T I R *MG+T I L*MG 
SOS-SI/MG 

READ IN VALUES OF PLANETARY UNIT 

CALL PLANINCCB, A, V, EB, PB,N, NCOMP, PDS, PDR, NS, PHIS, PHIS1, 

1PHIR, PHIR1, WDSM, ES, PS, B1SM, ISTEP, NPS, NPR, NR, WDRM, ER, PR, B1RM, 

2RPR, RPS, RR, RS) 

API ( 1 )=PB 
API (2)=PS 
AP 1(3) =PR 
AP1<4)=PS 
API ( 5)=PR 

CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 

TOF=TOS* ( 1 . + ( RR*RPS ) / ( RS*RPR > ) 

SOF=SOS/(l. +(RR*RPS)/(RS*RPR> > 

MGS=<1. +<RR*RPS)/(RS*RPR> ) 

CMGS=MGS*NG/NP 
MGP=1. 0 

INC0MP=21+ISTEP 

DO 5 IN=1, 21 

ZNCOMP < IN)=1. 0 

DO 6 IN-1, ISTEP 

ZNCOMP <IN+21)=NC0MP< IN) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 
CALCULATE LIFE OF SPIRAL BEVEL UNIT 

CALL SPBVCAI 

1CTIR, TOF, CSI, SQF, CMG, CMGS, CNP, CNG, 

2CA0, CGAMMA1, CROT, CSPR, CPHE1, CPHSI1, CZZ1, 

3CPTL, CCAP, CBP, CRP, CGTL, CAG, CBG, CRG, 

4CITYPEP1, CRFP1, CNBP1, CDP1, CACP1, CBDCAP1, CAK1, CE1 (2), CADJP1, 
5CITYPEP2, CRFP2, CNBP2, CDP2, CACP2, CBDCAP2, CAK2, CE1 (3), CADJP2, 
6CITYPEG1, CRFG1, CNBG1, CDG1, CACG1, CBDCAG1, CAK3, CE1 <5>, CADUG1, 
7CITYPEG2, CRFG2, CNBG2, CDG2, CACG2, CBDCAG2, CAK4, CE1 (6), CADJG2, 

8CF, CE, CPG, CE1 ( 1 ) , CRPD, CRGD, 

9CPXP, CPYP, CPZP, CTOTFOR, CPXG, CPYG, CPZG, CTOTFOR, 
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1CR1XP, CR1YP, CR1ZP, CR2XP, CR2YP, CR2ZP, 

2CR1XG, CR1YG, CRiZG, CR2XG, CR2YG, CR2ZG, 

3CL1 (2) * CHI (2), CTOFORPi* CPI (2)# CBDCAPIO, CD1 (2) * 

4CL1 (3), CH1(3), CT0F0RP2, CPI <3>, CBDCAP20, CD1 (3). 

SCL1 (5)# CH1<5), CTOFORG1, CPI (5), CBDCAGIO, CD1<5>, 

6CL 1 < 6 > , CH1(6), CT0F0RG2, CPI <6> , CBDCAG20, CD1 (6) , 

7CL1 ( 1 ) , CHI ( 1 ), CDCAP, CDKl), 

8CL1 (4>» CHI (4), CDCAG, CD1(4), 

9CLSB, CHSB, CESB ) 

PRINT OUT RESULTS FOR SPIRAL BEVEL UNIT 

CALL SPBVOT(CPD, CPHE, CPHSI, CSPR, CF, CAO, CSI, CSOS, CROT, 

1CTIR* TIR, C THETA/ CNP, C GAMMA, CDP, CRPD, CAOP, CBOP, CP ITCH, 

2CPXP, CPYP, CPZP, CTOTFOR, CDCAP, CCASEP, CCAP, CBP, 

3CR1XP, CR1YP, CR1ZP, CTOFORPI, CBDCAPIO, 

4CR2XP, CR2YP, CR2ZP, CT0F0RP2, CBDCAP20, 

5CNG, CZZ, CDG, CRGD, CAOG, CBOG, 

6CPXG, CPYG, CPZG, CTOTFOR, CDCAG, CCASEG, CAG, CBG, 

7CR1XG, CR1YG, CR1ZG, CTOFORG1, CBDCAGIO, 

8CR2XG, CR2YG, CR2ZG, CT0F0RG2, CBDCAG20, 

9CD1, CPI, CLi, CHI, CE1 ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 
CALCULATE LIFE OF SPIRAL BEVEL UNIT 

CALL SPBVCA< 

1CTIL, TOF, CSI, SOF, CMG, CMGS, CNP, CNG, 

2CA0, CGAMMA1, CROT, CSPR, CPHE1, CPHSI1, CZZ1, 

3CPTL, CCAP, CBP, CRP, CGTL, CAG, CBG, CRG, 

4CITYPEP1, CRFP1, CNBP1, CDP1, CACP1, CBDCAP1, CAK1, CE1 (2), CADJP1, 
5CITYPEP2, CRFP2, CNBP2, CDP2, CACP2, CBDCAP2, CAK2, CE1 (3), CADJP2, 
6CITYPEGI, CRFG1, CNBG1, CDG1, CACG1 , CBDCAG1 , CAK3, CE1 <5), CADJG1, 
7CITYPEG2, CRFG2, CNBG2, CDG2, CACG2, CBDCAG2, CAK4, CE1 (6), CADJG2, 

8CF, CE, CPG, CE1 ( 1 ) , CRPD, CRGD, 

9DPXP, DPYP, DPZP, DTOTFOR, DPXG, DPYG, DPZG, DTOTFOR, 

1DR1XP, DR1YP, DR1ZP, DR2XP, DR2YP, DR2ZP, 

2DR1XG, DR1YG, DR1ZG, DR2XG, DR2YG, DR2ZG, 

3DL1 (2) , DH1 (2>, DTOFORP1, CPI (2) , DBDCAPIO, DD1 (2) , 

4DL1 (3), DH1<3>, DT0F0RP2, CPI (3) , DBDCAP20, DD1 (3), 

5DL1 (5), DH1(5), DTOFORG1 , CPI ( 5 ) , DBDCAGIO, DD1 (5), 

6DL1(6), DH 1 ( 6 ) , DT0F0RG2, CP1(6), DBDCAG20, DD1(6), 

7DL1 < 1 > , DH1 ( 1 ), DDCAP, DDl(l), 

8DL1 (4) , DH1 (4 >, DDCAG, DD1 (4), 

9DLSB, DHSB, DESB ) 
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PRINT OUT RESULTS FOR SPIRAL BEVEL UNIT 

CALL SPBVOT (CPD, CPHE, CPHSI, CSPR, CF, CAO, CSI, CSOS, CROT, 

1CTIL, CTOS, CTHETA, CNP, CGAMMA, CDP, CRPD, CAOP, CBOP, CPITCH, 

2DPXP, DPYP, DPZP, DTOTFOR, DDCAP, CCASEP, CCAP, CBP, 

3DR1XP, DR1YP, DR1ZP, DTOFORP1, DBDCAPIO, 

4DR2XP, DR2YP, DR2ZP, DT0F0RP2, DBDCAP20, 

5CNG» CZZ, CDG, CRGD, CAOG, CBOG, 

6DPXG, DPYG» DPZG, DTOTFOR, DOC AG, CCASEG, CAG, CBG, 

7DR1XG, DR1YG, DR1ZG, DTOFORG1, DBDCAGIO, 

8DR2XG, DR2YG, DR2ZG, DT0F0RG2, DBDCAG20, 

9DD1, CPI, DL1, DH1, CE1 ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 
CALCULATE LIFE OF SPIRAL BEVEL UNIT 


CALL DPBVCAt 

1TIR, TIL, TOF, SI, SOF, MG, MGS, NP, NG, 

2A0, GAMMA1, ROT, SPR, PHE1, PHSIi, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1 , NBP1, DPI, ACPI, BDCAP1, AKi, El (2), ADJP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3) , ADJP2, 
6ITYPEG1, RFG1, NBG1, DG1, ACG1 , BDCAG1 , AK3, El (5), ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El(6>, ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 
1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1<2), HI (2), TOFORP1R, PI (2), BDCAPIOR, Dl(2), 

4L1<3), HI (3), T0F0RP2R, PI (3), BDCAP20R, D1 (3), 
5L1(5),H1(5), TOFORG1, PI (5), BDCAGIO, D1 <5>, 

6L1 <6) , HI (6) , T0F0RG2, P 1 (6) , BDCAG20, Dl<6>, 

7L1 ( 1 ) , HI < 1 ) , DC APR, D1 ( 1 ) , 

8L1 (4), HI (4), DCAG, Dl<4>, 

*L1<7>, HI (7), DCAPL, D1 (7) , 

*L1(8), HI (8), TOFORP1L, PI (8), BDCAPIOL, Dl(8>, 

*L1 (9), HI (9), T0F0RP2L, PI (9>, BDCAPIOL, D1 (9) , 

9LSB, HSB, ESB > 

PRINT OUT LIVES AND DYNAMIC CAPACITIES OF COMPONENTS 
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CALL DPBVOTfPD, PHE, PHSI, SPR, F, AO, SI, SOF, ROT, TIR, TIL, TOF, 

1 THETA, NP, 6AI1MA, DP, RPD, AOP, BOP, 

2PXPR, PYPR, PZPR, TOTFORR, DCAPR, CASEP, AP, BP, 

3R1XPR, R1YPR, R1ZPR, TOFORP1R, BDCAPIOR, 

4R2XPR, R2YPR, R2ZPR, TQF0RP2R, BDCAP20R, 

2PXPL, PYPL, PZPL, TOTFORL, DCAPL, CASEP, AP, BP, 

3R1XPL, R1YPL, R1ZPL, TOFORP1L, BDCAPIOL, 

4R2XPL, R2YPL, R2ZPL, T0F0RP2L, BDCAP20L, 

5NG, ZZ, DG, RGD, AOG, BOG, 

6PXGR, PYGR, PZGR, TOTFORGE, DC AG, CASEG, AG, BG, 

6PXGL, PYGL, PZGL, TOTFORGE, DCAG, CASEG, AG, BG, 

7R1XG, R1YG, R1ZG, TOFORG1 , BDCAGIO, 

SR2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1, PI, LI, HI, El > 

CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 
CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANCAI ISTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT , 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3T0S, TOF, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI , AL1 , AH1, AE1, 

4LPLAN, HPLAN, EPLAN) 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 


CALL PLANOT ( ISTEP, N, V, CB, FB, NS, PDS, PHIS, WDSM, B1SM, FS, 
1NR, PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TOS, TOF, SOS, SOF, FTT, 
2AD1 , API, AL1, AH1 , AE1 ) 


DEFINE TRANSMISSION LIFE ARRAYS 


50 


8 


9 


DO 50 IE=1,6 

ZE1 < IE )=CE1 ( IE) 

ZE1 ( IE+6 ) =CE1 ( IE ) 

ZL1 ( IE)=CL1 (IE) 

ZL1 < IE+6)=DL1 (IE) 

DO 8 IE-1, 9 

ZE1 <IE+12)=E1 ( IE) 

ZL1 < IE+12 > =L1 ( IE ) 

DO 9 IE-1, ISTEP 

ZEH IE+21 >=AE1 ( IE) 

ZL1 ( IE+21 > =AL1 ( IE) 

CALL LIFE ( ZL1 , INCOMP, ZE1, ZNCOMP, LTRANS, ETRANS) 
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HTRANS=LTRANS* 16666. 667/SOF 

ESTIMATE 10 PERCENT DYNAMIC CAPACITY OF TRANSMISSION 

CDMIN=CD1(1> 

DO 51 1=2, 6 

IF<CD1(I). LT. CDMIN)CDMIN=CD1 ( I ) 

DELTAT0=. 1*CDMIN 
DELTAT I =0. 5*NP /NG*DELTATO/MG/MGS 
DT0=0. 0 
DTI=0. 0 
DO 52 1=1, 10 

DT I =DT I +DELT AT I 
DT0=DT0+DELT ATO 
DYN ( I ) =DT0 
CALL SPBVCA( 

1DTI, TOF, CSI, SOF, CMG, CMGS, CNP, CNG, 

2CA0, C GAMMA 1, CROT, CSPR, CPHE1, CPHSI1, CZZ1, 

3CPTL, CCAP, CBP» CRP, CGTL, CAG, CBG, CRG, 

4CITYPEP1, CRFP1, CNBP1, CDP1, CACP1, CBDCAP1, CAK1, CE1 (2), CADJP1, 
5CITYPEP2, CRFP2, CNBP2, CDP2, CACP2, CBDCAP2, CAK2, CE1 (3) , CADJP2, 
6CITYPEG1, CRFG1, CNBG1, CDG1, CACG1, CBDCAG1, CAK3, CE1 (5), CADJG1, 
7CITYPEG2, CRFG2, CNBG2, CDG2, CACG2, CBDCAG2, CAK4, CE1 (6) , CADJG2, 
8CF, CE, CPG, CE1 ( 1 ) , CRPD, CRGD, 

9CPXP, CPYP, CPZP, CTOTFOR, CPXG, CPYG, CPZG, CTOTFOR, 

1CR1XP, CR1YP, CR1ZP, CR2XP, CR2YP, CR2ZP, 

2CR1XG, CR1YG, CR1ZG, CR2XG, CR2YG, CR2ZG, 

3CL1 (2), CHI (2), CT0F0RP1, CPI (2), CBDCAP10, CD1(2), 

4CL1 < 3 ) , CHI ( 3 ) , CT0F0RP2, CP 1(3), CBDCAP20, CD1 ( 3 > , 

5CL1 (5), CHI (5), CT0F0RG1, CPI (5), CBDCAG10, CD1 (5), 

6CL1 (6) , CHI (6), CT0F0RG2, CP 1 < 6 ) , CBDCAG20, CD1 (6) , 

7CL1 ( 1 > , CHI ( 1 > , CDCAP, CD1 ( 1 ) , 

8CL1(4), CHI (4), CDCAG, CD1 (4), 

9L 1(1), DUMB , DUMB ) 

CONTINUE 

CALL CAP(DYN, LI, 10, CDSB, CPSB) 

ESTIMATE 10 PERCENT DYNAMIC CAPACITY OF TRANSMISSION 

DM I N=D 1(1) 

DO 21 1=2,9 
21 IF(D1(I). LT. DMIN)DMIN=D1(I) 

DELTATO=. 1*DMIN 

DELTAT 1=0. 5*DELTAT0/MG/MGS 

DTIR=0. 0 


118 



noooo to ooo o o o o 


DTIL=0. 0 
DT0=0. 0 


START COUNTER FOR DYNAMIC CAPACITIES BETWEEN 10 AND 100 PERCENT 
OF TRANSMISSION DYNAMIC CAPACITY 

DO 22 1=1, 10 

DT IR=DT I R+DELT AT I 
DT I L=DT I L+DELT AT I 
DTO=DTO+DELTATO 
DYNC I ) =DTO 

CALCULATE LIFE FOR EACH DYNAMIC CAPACITY 
CALL DPBVCAI 

1DTIR, DTIL, DTO, SI, SOF, MG, MGS, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ), RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2), HI (2), T0F0RP1R, PI (2), BDCAP10R, D1 (2), 

4L1 (3), HI (3), T0F0RP2R, PI (3), BDCAP20R, D1 (3), 

5L1 (5), HI (5), T0F0RG1, PI (5), BDCAG1Q, D1 (5), 

6L1 (6), HI (6), T0F0RG2, PI (6), BDCAG20, D1 (6), 

7L1 < 1 > , HI < 1 > , DC APR, D1 < 1 > , 

8L1 (4), HI (4), DC AG, Dl<4>, 

*L1 (7), HI (7), DCAPL, D1 (7), 

*L1 (8), HI (8), T0F0RP1L, PI (8), BDCAP1QL, D1 (8), 

*L1<9), HI <9>, T0F0RP2L, Pl<9>, BDCAP10L, D1 (9), 

9LI(I), DUMB, DUMB) 

CONTINUE 

CALL CAP(DYN, LI, 10, DSB, PSP) 


START COUNTER FOR LOADS BETWEEEN 15 AND 100 PERCENT OF DYNAMIC 
CAPACITY 
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ADMIN=AD1<1> 

DO 23 1=2, ISTEP 

23 IF(AD1<I>. LT. ADMIN) ADM I N= ADI ( I > 

DELTATO=. 1*ADMIN 
DELT ATOS=DELT A TO / MGS 
DT0=0. 0 
DT0S=0. 0 

DO 24 1=1, 10 

DTOS=DTOS+DELT ATOS 
DTO=DT O+DELT AT 0 
DYN ( I ) =DTO 

CALL PLANCA( ISTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT , 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DT0S, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1, AE1, ALI < I ) , DUMB, 
4DUMB ) 

24 CONTINUE 

CALL CAP (DYN, ALI, 10, DPLAN, PPLAN) 

C 

C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

IF( ADMIN. LT. DMIN) DMIN=ADMIN 

IF(CDMIN. LT. DMIN)DMIN=CDMIN 
DELTATO=. 1*DMIN 
DELT ATOS=DELTATO / MGS 
DELT AT I R =DELT ATOS / MG / 2 . 

DELT AT I L=DELT ATOS /MG / 2 . 

C DELT I =DELT AT I R *C NP / C NG 

CTI=0. 0 

DTIR=0. O 

DTIL=0. 0 

DT0S=0. 0 

DT0=0. 0 

DO 20 1=1, 10 

CTI=CTI+CDELTI 
DT I R=DT I R+DELTAT I R 
DT I L=DT I L+DELTAT I L 
DTOS=DTOS+DELTATOS 
DTO=DTO+DELT ATO 
DYN( I )=DTO 
C 
C 
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CALL SPBVCA< 

1CTI, DTO, CSI, SOF, CMC. CMOS, CNP, CNG, 

2CA0, CGAMMA1, CROT, CSPR, CPHE1, CPHSI1, CZZ1, 

3CPTL, CCAP, CBP, CRP, CGTL, CAG, CBG, CRG, 

4CITYPEP1, CRFP1, CNBP1, CDP1, CACP1, CBDCAP1, CAK1, CE1 <2>, CADJP1, 
5CITYPEP2, CRFP2, CNBP2, CDP2» CACP2, CBDCAP2, CAK2, CE1 (3), CADJP2, 
6CITYPEG1, CRFG1, CNBG1, CDG1, CACG1, CBDCAG1. CAK3» CEt <5>, CADJG1. 
7CITYPEG2, CRFG2. CNBG2, CDG2, CACG2, CBDCAG2, CAK4. CE1 <6>, CADJG2, 
8CF» CE. CPG* CE1 d > , CRPD, CRGD, 

9CPXP, CPYP* CPZP, CTOTFOR, CPXG, CPYG, CPZG, CTOTFOR, 

1CR1XP* CR1YP, CR1ZP, CR2XP, CR2YP. CR2ZP* 

2CR1XG< CR1YG, CR1ZG, CR2XG, CR2YG, CR2ZG. 

3CL1 <2)» CHI (2)» CTQFORP1, CPI (2>* CBDCAP1Q, CD1(2). 

4CL1<3>, CHI (3), CT0F0RP2, CPI <3> , CBDCAP20. CD1(3). 

5CL1 (5), CHI (5), CTOFORG1, CPI (5) , CBDCAGIO, CD1<5>, 

ACL1 (6), CH1<6>, CT0F0RG2, CPI <6) , CBDCAG20, CD1<6>, 

7CL1 d > , CHI d > , CDCAP, CD1 d > , 

8CL1 (4). CHI (4>» CDCAG, CD1 (4). 

9DUMB * DUMB, DUMB ) 

CALL DPBVCA< 

1DTIR, DTIL, DTO, SI, SOF, MG, MGS, NP, NG, 

2A0, GAMMA1, ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4 1 T YPEP 1 , RFP 1 , NBP 1 , DPI, ACPI, BDCAP1, AK1 , El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El ( A) , ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR. PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL. PZGL, TOTFORGE, 

1R1XPR* R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3LK2), HI (2), TOFORP1R, PI (2) , BDCAPIOR, Di(2>, 

4L1 (3) , HI (3) , T0F0RP2R, PI (3) , BDCAP20R, D1 (3), 

5L1 (5) , HI (5) > TOFORG1, PI (5) , BDCAGIO, Dl<5>, 

6L1 (6 ) , HI (6) , T0F0RG2, P 1 ( 6 ) , BDCAG20, D 1 < 6 ) , 

7L1 ( 1 ) , HI ( 1 ) , DC APR, DKl), 

8L1 (4), Hl(4), DC AG, Dl<4>, 

*L1 (7), HI (7), DCAPL, Dl<7>, 

*L1 (8), HI ( 8 ) , TOFORP1L, PI (8), BDCAPIOL, Dl<8), 

*L1<9>, HI (9), T0F0RP2L, PI (9), BDCAPIOL, Dl<9), 
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9DUMB, DUMB, DUMB > 

CALL PLANCA< I STEP, NCOMP, MOP, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DT0S, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1, AE1, DUMB, DUMB, 
4DUMB ) 

DO 54 IE=1, 6 

ZL1 ( IE)=CL1 ( IE) 

54 ZL1! IE+6)=CL1! IE) 

DO 12 IE=1,9 

ZE1!IE+12)=E1! IE) 

12 ZL1!IE+12)=L1!IE) 

DO 13 IE-1, ISTEP 

ZE 1 ( I E+2 1 ) =AE 1 ( I E > 

13 ZL1 ( IE+21 )=AL1 < IE) 

CALL LIFE! ZL1, INCOMP, ZE1, ZNCOMP, ZLKI), DUMB) 

20 CONTINUE 

CALL CAP (DYN, ZLI, 10, DTRANS, PTRANS ) 

1220 FORMAT ( ' TOTAL TRANSMISSION'/) 

1221 FORMAT ( ' SPIRAL BEVEL UNIT'/) 

1222 FORMAT ( ' PLANETARY UNIT'/) 

WRITE! 1, 1221) 

CALL DPLHE(CDSB, CPSB, CLSB. CHSB, CESB) 

WRITE! 1, 1221 ) 

CALL DPLHE! CDSB, CPSB, DLSB, DHSB, DESB) 

WRITE! 1, 1221) 

CALL DPLHE!DSB, PSP, LSB, HSB, ESB ) 

WRITE! 1, 1222) 

CALL DPLHE !DPLAN, PPLAN, LPLAN, HPLAN, EPLAN) 

WRITE! 1, 1220) 

CALL DPLHE! DTRANS, PTRANS, LTRANS, HTRANS, ETRANS) 

STOP 

END 

SUBROUTINE PLAN 

REAL NS, NPS, NPR, NR, N, LS, LR, LPLAN 

REAL NCOMP !5),D1!5), PI ! 5 ) , LI ! 5 > . HI ! 5 ) , El ! 5 ) , M01, LI ( 10) , DYN! 10) 
C 

C CB DYNAMIC CAPACITY OF THE BEARINGS 

C A LIFE ADJUSTMENT FACTOR OF THE BEARINGS 

C EB WEIBULL EXPONENT OF THE BEARINGS 

C PB LOAD LIFE EXPONENT OF THE BEARINGS 

C N NUMBER OF PLANETARY GEARS 

C NCOMP! 1) NUMBER OF PLANET BEARINGS 

C NCOMP !2) NUMBER OF SUN GEARS 

C NCOMP! 3) NUMBER OF RING GEARS 
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C NCQMR ( 4 ) NUMBER OF PLANET-SUN GEARS 

C NCOMP ( 5 ) NUMBER OF PLANET-RING GEARS 

C PDS PITCH OF PLANET-SUN MESH 

C PDR PITCH OF PLANET-RING MESH 

C NS NUMBER OF SUN GEAR TEETH 

C NPS NUMBER OF PLANET-SUN GEAR TEETH 

C NPR NUMBER OF PLANET-RING GEAR TEETH 

C NR NUMBER OF RING GEAR TEETH 

C PHIS PRESSURE ANGLE OF SUN GEAR (DEG) 

C PHIS1 PRESSURE ANGLE OF SUN GEAR (RAD) 

C PHIR PRESSURE ANGLE OF RING GEAR (DEG) 

C PHIR1 PRESSURE ANGLE OF RING GEAR (RAD) 

C WDSM WIDTH OF THE SUN GEAR MESH 

C WDRM WIDTH OF THE RING GEAR MESH 

C ES WE I BULL EXPONENT OF THE SUN GEAR MESH 

C ER WE I BULL EXPONENT OF THE RIN GEAR MESH 

C PS LOAD-LIFE EXPONENT OF THE SUN GEAR MESH 

C PR LOAD-LIFE EXPONENT OF THE RING GEAR MESH 

C B1SM MATERIAL CONSTANT OF THE SUN GEAR MESH 

C B1RM MATERIAL CONSTANT OF THE RING GEAR MESH 

C RS RADIUS OF THE SUN GEAR 

C RPS RADIUS OF THE PLANET-SUN GEAR 

C RPR RADIUS OF THE PLANET-RING GEAR 

C RR RADIUS OF THE RING EGAR 

C ISTEP NUMBER OF COMPONENTS IN THE PLANETARY 

C = 4 UNSTEPPED PLANETARY UNIT 

C =5 STEPPED PALETARY UNIT 

C 

C INPUT TORQUE AND SPEED 

C 

101 FORMAT ( 7 WHAT IS THE INPUT TORQUE OF THE TRANSMISSION') 

102 FORMAT ( ' WHAT IS THE INPUT SPEED OF THE TRANSMISSION') 

WRITE(1. 101) 

READd, *)TI 
WRITEd. 102) 

READd. *>SI 

CALL PLANIN(CB< A, V, EB, PB, N, NCOMP, PDS, PDR, NS, PHIS, PHIS1, 
1PHIR, PHIR1, WDSM, ES. PS, B1SM, ISTEP, NPS, NPR, NR, WDRM, ER, PR, B1RM, 
2RPR.RPS, RR.RS) 

P 1 (1 ) =PB 
P 1 ( 2 ) =PS 
P 1 ( 3 ) =PR 
P 1 ( 4 ) =PS 
Pi (5)=PR 
MG1=1. 0 
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C 

10 


20 

1000 


T0F=T I * ( 1 . + ( RR*RPS ) / ( RS*RPR ) ) 
S0F=SI/(1. + < RR*RPS ) / < RS*RPR > ) 


CALL PLANCA( ISTEP, NCOMP, M01, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WORM, 

3TI, TOF, SI, SOF, CS, LS, FS, CR, LR, FR, Dl, LI, HI, El, LPLAN, HPLAN, EPLAN) 


CALL PLANOT( ISTEP, N, V, CB, FB, NS, PDS, PHIS, WDSM, B1SM, FS, 

1NR, PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TI, TOF, SI, SOF, FTT, 

2D1, PI, LI, HI, El) 

DMIN=D1(1> 

DO 10 1=2, ISTEP 

IF(D1<I). LT. DMIN)DMIN=D1 ( I ) 

DELTATO=. 1*DMIN 

DELT AT I =DELT ATO / ( 1 . +(RR*RPS) / (RS*RPR ) ) 

DTI=0. 0 
DT0=0. 0 
DO 20 1=1, 10 

DT I =DT I +DELT ATI 
DTO=DTO+DELT ATO 
DYN ( I > =DTO 

CALL PLANCA( ISTEP, NCOMP, MG1, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DTI, DTO, SI, SOF, CS, LS, FS, CR, LR, FR, Dl, LI, HI, El, LI ( I ) , DUMB, DUMB) 
CONTINUE 

CALL CAP (DYN, LI, 10, DPLAN, PPLAN) 

WRITE(1, 1000) 

FORMAT ( ' TOTAL TR ANSM I SS I ON ' / ) 

CALL DPLHE( DPLAN, PPLAN, LPLAN, HPLAN, EPLAN) 

STOP 

END 

SUBROUTINE DBPL 

INTEGER CASEP, CASEG, PTL, GTL 

REAL NP, NG, NBP1, NBP2, NBG1, NBG2, MG, LSB 

REAL LI (9), Dl(9), El (9), HI (9), PI (9), DYN(IO), LI (10) 

REAL NS, NPS, NPR, NR, N, LS, LR, LPLAN 

REAL NCOMP (5), ADI (5), API (5), AL1(5), AH1(5), AE1(5), ALI(IO) 

REAL MGS, MGP, ZNC0MP(14>, ZE1(14), ZLi ( 14) , LTRANS, ZLI(IO) 
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101 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE RIGHT PINION " > 

102 FORMAT ( 'WHAT IS THE INPUT TORQUE OF THE LEFT PINION") 

103 FORMAT ( "WHAT IS THE INPUT SPEED OF THE TRANSMISSION") 

WRITEd, 101) 

READd, *)TIR 
URITE( 1,102) 

READ<1,*)TIL 
WRITE(1, 103) 

READd, *)SI 

INPUT SPIRAL BEVEL GEAR GEOMETRY 

CALL DPBVIN(NP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, El (1 ), PG, 

1PHE1, PHSI 1, THETA 1, CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El (2), ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, El (3), 
3CASEG, GTL, AG, BG, ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, El (5), 
4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, El (6), MG, GAMMA 1, GAMMA, ZZ, 
5ZZ1, DP, DG, RPD, RP, RGD, RG, HK, AOG, AOP, HT, BOG, BOP, PD, 

6ADUP1, ADUP2, ADJG1, ADJG2, ZIP) 

E1(4)=E1(1) 

El (7)=E1 d ) 

El (8)=E1 (2) 

E 1 ( 9 ) =E 1(3) 

P 1 ( 1 ) =PG 
P1<4)=PG 
P1(7)=PG 

CALCULATE OUTPUT TORQUE AND SPEED OF TRANSMISSION 

TOS=T I R *MG+T I L*MG 
SOS=SI/MG 

READ IN VALUES OF PLANETARY UNIT 

CALL PLANINCCB, A, V, EB, PB, N, NCOMP, PDS, PDR, NS, PHIS, PHIS1, 

1PHIR, PHIR1, WDSM, ES, PS, B1SM, ISTEP, NPS, NPR, NR, WORM, ER, PR, B1RM, 
2RPR, RPS, RR, RS) 

API ( 1 )=PB 
AP 1 ( 2 ) =PS 
AP 1(3) =PR 
AP 1 ( 4 ) =PS 
AP 1 ( 5 ) =PR 

CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 
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c 

TOF=TOS* ( 1 . + ( RR*RPS ) / ( RS*RPR ) ) 

SOF=SOS/ ( 1 . + < RR*RPS ) / ( RS*RPR ) > 

MGS* (1 . + ( RR*RPS > / ( RS*RPR ) > 

MGP=1.0 
INC0MP-9+ISTEP 
DO 5 IN=1,9 
5 ZNCOMP < I N ) =* 1 . O 

DO 6 IN=1, ISTEP 
ZNCOMP < IN+9 ) =NCOMP ( IN ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 
CALCULATE LIFE OF SPIRAL BEVEL UNIT 


CALL DPBVCAt 

1TIR, TIL, TOF, SI , SOF, MG, MGS, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFPi, NBP1, DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 
6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El<5>, ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 > , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 
1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3LK2), HI (2), T0F0RP1R, PI (2) , BDCAP1QR, Dl<2>, 

4L1 (3) , HI (3), TOFORP2R, Pl<3>, BDCAP20R, D1 (3), 

5L1 (5) , HI ( 5) , T0F0RG1, PI (5) , BDCAG10, Dl<5>, 

6LK6), HI (6), T0F0RG2, PI <6>, BDCAG20, D1 (6), 

7L1 ( 1 ) , HI ( 1 ) , DCAPR, Dl(l), 

8L1(4), HI (4), DC AG, D1 (4), 

*L1(7)» HI (7) , DCAPL, Dl(7), 

■»L1 (8) , HI (8). T0F0RP1L, PI (8), BDCAP10L, D1 (8), 

*L1(9), HI (9), T0F0RP2L, PI (9) , BDCAP10L, Dl<9), 

9LSB, HSB, ESB > 

PRINT OUT LIVES AND DYNAMIC CAPACITIES OF COMPONENTS 


CALL DPBVOT ( PD, PHE, PHSI, SPR, F, AO, SI, SOF, ROT, TIR, TIL, TOF, 
1 THETA, NP, GAMMA, DP, RPD, AOP, BOP, 
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2PXPR, PYPR# PZPR, T0TF0RR, DC APR, CASEP, AP, BP, 

3R1XPR, R1YPR, R1ZPR, T0F0RP1R, BDCAP10R, 

4R2XPR, R2YPR, R2ZPR, T0F0RP2R, BDCAP20R, 

2PXPL, PYPL, PZPL, TOTFORL, DCAPL, CASEP, AP, BP, 

3R1XPL, R1YPL, R1ZPL, TOFORP1L, BDCAP1QL, 

4R2XPL, R2YPL, R2ZPL, T0F0RP2L, BDCAP2DL, 

5NG, ZZ, DG, RGD, AOG, BOG, 

6PXGR, PYGR, PZGR, TOTFORGE, DC AG, CASEO, AG, BG, 

6PXGL, PYGL, PZGL, TOTFORGE, DC AG, CASEG, AG, BG, 

7R1XG, R1YG, R1ZG, T0F0RG1, B DC AGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1, PI, LI, HI, El) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 
CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANCA( ISTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3T0S, TOF, SOS, SOF, CS, LS, FS, CR, LR. FR, ADI, AL1, AH1, AE1, 

4LPLAN, HPLAN, EPLAN) 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 

CALL PLANOT( ISTEP, N, V, CB, FB, NS, PDS, PHIS, WDSM, B1SM, FS, 

1NR, PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TOS, TOF, SOS, SOF, FTT, 

2AD1, API, AL1, AH1, AE1 ) 

DEFINE TRANSMISSION LIFE ARRAYS 

DO 8 IE-1, 9 

ZE1 < I E ) =E 1 ( IE) 

ZL1 ( IE)=L1 ( IE) 

DO 9 IE-1, ISTEP 

ZE 1 ( I E+9 ) =AE 1 ( I E ) 

ZL 1 ( I E+9 ) =AL 1 < I E ) 

CALL LIFE( ZL1 , INCOMP, ZE1, ZNCOMP, LTRANS, ETRANS) 

HTRANS-LTRANS* 16666. 667/SOF 

ESTIMATE 10 PERCENT DYNAMIC CAPACITY OF TRANSMISSION 

DMIN-D1 ( 1 ) 

DO 21 1=2,9 
21 IF(D1(I). LT. DMIN)DMIN=D1<I) 

DELTATQ=. 1*DMIN 
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DELTATI=0. 5*DELT ATO/MG/MGS 
DTIR*0. 0 
DTIL=0. 0 
DT0=0. 0 

START COUNTER FOR DYNAMIC CAPACITIES BETWEEN 10 AND 100 PERCENT 
OF TRANSMISSION DYNAMIC CAPACITY 

DO 22 1=1, 10 

DT I R=DT I R+DELT AT I 
DT I L=DT I L+DELT AT I 
DTO=DTO+DELT ATO 
DYN( I )=DTO 

CALCULATE LIFE FOR EACH DYNAMIC CAPACITY 
CALL DPBVCA ( 

1DTIR, DTIL» DTO, SI, SOF, MG, MGS, NP, NG, 

2A0, GAMMA1, ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP 1 , NBP1, DPI, ACPI, BDCAP1, AK1 , El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El ( 5) , ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El <6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 ( 2 ) , HI (2), T0F0RP1R, PI (2>, BDCAP10R, Dl<2), 

4L1 (3> , HI (3) , T0F0RP2R, PI (3) , BDCAP20R, D1 (3), 

5L1 (5), HI (5), T0F0RG1, PI (5), BDCAG10, D1 (5), 

6L1 (6), HI (6), T0F0RG2, PI (6), BDCAG20, Dl<6>, 

7L1 ( 1 ) , HI ( 1 ) , DCAPR, Dl(l>, 

8L1 <4>«H1(4), DCAG, D1 (4), 

*L1 (7 ) , Hl(7>, DCAPL, Dl<7>, 

*L1 (8), HI (8), T0F0RP1L, PI (8), BDCAP10L, D1 (8), 

*L1 (9), HI (9>, T0F0RP2L, PI (9), BDCAP10L, D1 (9), 

9LI ( I ), DUMB, DUMB) 

CONTINUE 

CALL CAP(DYN, LI, 10, DSB, PSP) 
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C START COUNTER FOR LOADS BETWEEEN 15 AND 100 PERCENT OF DYNAMIC 

C CAPACITY 

C 

ADMIN=AD1<1> 

DO 23 1=2, I STEP 

23 IF( ADI < I > . LT. ADMIN) ADMIN® ADI < I ) 

DELTATO®. 1* ADM IN 
DELT ATOS=DELT ATO/MGS 
DT0=O. 0 
DT0S=0. 0 

DO 24 1 = 1, 10 

DTOS=DTOS+DELT ATOS 
DTO=DTO+DELTATO 
DYN( I )=DTO 

CALL PLANCA( ISTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DT0S, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1, AE1, ALI ( I) , DUMB, 
4DUMB > 

24 CONTINUE 

CALL CAP (DYN, ALI, 10, DPLAN, PPLAN) 

C 

C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

IF < ADMIN. LT. DM IN) DM I N= ADM I N 
DELTATO®. 1*DMIN 
DELT ATOS=DELT ATO/MGS 
DELTATIR=DELTAT0S/MG/2. 

DELT AT IL=DELT ATQS/MG/2. 

DTIR=0. 0 
DTIL=0. 0 
DT0S=0. 0 
DT0=0. 0 
DO 20 1=1, 10 

DTIR=DTIR+DELTATIR 
DTIL=DTIL+DELTATIL 
DTOS=DTOS+DELT ATOS 
DTO=DTO+DELTATO 
DYN( I ) =DTO 
C 
C 
C 

CALL DPBVCA ( 

1DTIR, DTIL, DTO, SI, SOF, MG, MGS, NP, NG, 
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2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI 1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1, El(2>, ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3) , ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACGl, BDCAG1, AK3, El (5), ADUG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6) , ADJG2, 

8F, E, PG, E1(1),RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TQTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2), HI (2), TOFORP1R, PI (2), BDCAPIOR, Dl<2>, 

4L1C3), HI (3), T0F0RP2R, PI <3) , BDCAP20R, Dl(3), 

5L1(5),H1(5), TOFORG1, P 1 ( 5 ) , BDCAGIO, D1 (5), 

6L1 (6), HI (6), T0F0RG2, PI (6), BDCAG20, Dl(6>, 

7L1 ( 1 > , HI ( 1 > , DC APR, D1 < 1 ) , 

8L1 (4>, HI (4), DCAG, Dl(4>, 

*L1(7)«H1(7), DCAPL, Dl(7), 

*L1 (8), HI (8), TOFORP1L, P 1 ( 8 ) , BDCAPIOL, D1 ( 8) , 

*L1 (9), HI (9), T0F0RP2L, PI (9) , BDCAPIOL, D1 (9), 

9LI(I), DUMB, DUMB) 

CALL PLANCA( ISTEP, NCOMP, MGP, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DTOS, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1, AE1, ALI ( I ), DUMB, 
4DUMB ) 

DO 12 IE-1, 9 

12 ZL1 ( IE )=L1 (IE) 

DO 13 IE-1, ISTEP 

13 ZL1(IE+9)=AL1 (IE) 

CALL LIFE ( ZL1 , INCOMP, ZE1, ZNCOMP, ZLI(I), DUMB) 

20 CONTINUE 

CALL CAP (DYN, ZLI, 10, DTRANS, PTRANS) 

1220 FORMAT < ' TOTAL TRANSMISSION'/) 

1221 FORMAT ( ' SPIRAL BEVEL UNIT'/) 

1222 FORMAT ( ' PLANETARY UNIT'/) 

WRITEd, 1221) 

CALL DPLHE(DSB, PSP, LSB, HSB, ESB ) 

WRITEd, 1222) 

CALL DPLHE(DPLAN, PPLAN, LPLAN, HPLAN, EPLAN ) 

WR I TE (1,1 220 ) 

CALL DPLHE( DTRANS, PTRANS, LTRANS, HTRANS, ETRANS) 

STOP 

END 
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SUBROUTINE DBPLPL 

INTEGER CASEPi CASEG, PTL, GTL, BISTEP 

REAL NP, NG» NBP1, NBP2, NBG1, NBG2, MG, LSB 

REAL L1(9)»D1(9),E1(9),H1(9)»P1(9), DYN( 10) , LI ( 10) 

REAL NS# NPS, NPR, NR, N, LS# LR, LPLAN 

REAL NC0MP<5). ADI (5), API (5), AL1 (5), AH1 (5)# AE1 (5)# ALI ( 10) 

REAL MGS# MGPA, MGPB# ZNC0MP(19). ZE1(19), ZL1 ( 19) , LTRANS, ZLI(10> 
REAL BNCOMPO), BD1 (5) » BP1 ( 5) , BL1 (5), BH1 (3). BE1 (5), BLI(IO) 

101 FORMAT < 'WHAT IS THE INPUT TORQUE OF THE RIGHT PINION 7 > 

102 FORMAT ('WHAT IS THE INPUT TORQUE OF THE LEFT PINION') 

103 FORMAT < 'WHAT IS THE INPUT SPEED OF THE TRANSMISSION') 

WRITEd, 101) 

READ(1# *)TIR 
WRITEd, 102) 

READ(1» *>TIL 
WRITEd# 103) 

READd# *)SI 

INPUT SPIRAL BEVEL GEAR GEOMETRY 

CALL DPBVIN(NP, NG# AO, PHE, F# PHSI. ROT, SPR# THETA, E, El (1 ) , PG, 

1PHE1, PHSI 1, THETA1, CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, El (2), ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, El <3), 
3CASEG, GTL, AG, BG, ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, El (5) , 
4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, El (6), MG, GAMMA1, GAMMA, ZZ, 
5ZZ1. DP, DG, RPD, RP, RGD, RG, HK, AOG, AOP, HT, BOG, BOP, PD, 

6ADJP1/ADJP2, ADJG1, ADJG2, ZIP) 

E1(4)=E1(1) 

El(7)=Eld) 

El (8)=E1 (2) 

El ( 9 ) =E 1(3) 

Pld)=PG 
P1(4)=PG 
P1(7)=PG 

CALCULATE OUTPUT TORQUE AND SPEED OF TRANSMISSION 

TOS=T I R*MG+T I L*MG 
SOS=SI/MG 

READ IN VALUES OF PLANETARY UNIT 

CALL PLANIN(CB, A, V, EB, PB, N, NCOMP, PDS, PDR, NS, PHIS, PHIS1, 

1PHIR, PHIR1, WDSM, ES, PS, B1SM, ISTEP, NPS, NPR, NR, WORM, ER, PR, B1RM, 
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2RPR, RPS, RR, RS) 

API ( 1 )=PB 
AP 1(2) =PS 
API (3)=PR 
AP1(4)=PS 
API ( 5)=PR 
C 

C CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 

C 

TOPA=TOS* ( i . + < RR*RPS > / ( RS*RPR ) ) 

SOP A=SOS/ ( 1 . + ( RR*RPS > / < RS*RPR > ) 

C 

C READ IN VALUES OF PLANETARY UNIT 

C 

CALL PLANIN(BCB, BA, BV, BEB, BPB, BN, BNCOMP, BPDS, BPDR, BNS, BPHIS, 

1BPHIS1, BPHIR, BPHIR1, BWDSM, BES, BPS, BB1SM, B ISTEP, BNPS, 

2BNPR, BNR, BWDRM, BER, BPR, BB1RM, BRPR, BRPS, BRR, BRS) 

BP 1(1) =BPB 
BPi (2)=BPS 
BP1 <3)=BPR 
BPl(4)=BPS 
BPI (5)=BPR 
C 

C CALCULATE OUTPUT TORQUE AND SPEED OF PLANETARY UNIT 

C 

TOF=TOPA* ( 1 . + ( BRR*BRPS ) / ( BRS-»BRPR ) ) 

SOF=SOPA/ ( 1 . + ( BRR*BRPS ) / ( BRS*BRPR ) ) 

MGPA= ( 1 . + ( BRR*BRPS ) / ( BRS*BRPR ) ) 

MGS= ( 1 . + ( RR*RPS ) / ( RS*RPR > ) *MGP A 
MGPB=1. 0 

I NC OMP =9+ 1 STEP +BI STEP 
DO 5 IN=1 , 9 

5 ZNCOMP ( IN>=1. 0 
DO 6 IN=1, ISTEP 

6 ZNCOMP (IN+9)=NC0MP( IN) 

IX=9+ISTEP 

DO 77 IN-1, BISTEP 
77 ZNCOMP< IN+IX )=BNCOMP ( IN) 

C 

C CALCULATE LIFE AND DYNAMIC CAPACITY OF SPIRAL BEVEL UNIT COMPONENTS 

C CALCULATE LIFE OF SPIRAL BEVEL UNIT 

C 


CALL DPBVCAI 

1TIR, TIL, TOF, SI, SOF, MG, MGS, NP, NG, 
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2A0, GAMMA1. ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1, El <2>, ADUP1, 
5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 
6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 
7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TQTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 
1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L 1(2), Hl(2), TOFORP 1 R , PI (2) , BDCAP1QR, Dl<2>, 

4L1 (3) , HI (3) , T0F0RP2R, PI <3> , BDCAP20R, D1 (3) , 

5L1 ( 5) , HI < 5) , TQFORG1, Pl<5>, B DC AG 10, Dl<5), 

6L1 (6),H1(6>, T0F0RG2, PI <6 > , BDCAG20, Dl<6>, 

7L1 < 1 ) , HI < 1 ) , DCAPR, Dl(l), 

8L1 (4) , HI (4) , DC AG, Dl(4), 

*L1<7), Hl(7)i DCAPL, Dl(7), 

*L1<8>, HI (8), TOFORP 1L, PI (8), BDCAP10L, Dl(8), 

*L1<9>, HI (9) < T0F0RP2L, PI (9) , BDCAP10L, Dl(9), 

9LSB, HSB, ESB) 

PRINT OUT LIVES AND DYNAMIC CAPACITIES OF COMPONENTS 


CALL DPBVOT(PD, PHE, PHSI, SPR, F, AO, SI, SOF, ROT, TIR, TIL, TOF, 

1 THETA, NP, GAMMA, DP, RPD, AOP, BOP, 

2PXPR, PYPR, PZPR, TOTFORR, DCAPR, CASEP, AP, BP, 

3R1XPR, R1YPR, RiZPR, TOFORP 1R, BDCAP10R, 

4R2XPR, R2YPR, R2ZPR, T0F0RP2R, BDCAP20R, 

2PXPL, PYPL, PZPL, TOTFORL, DCAPL, CASEP, AP, BP, 

3R1XPL, R1YPL, R1ZPL, TOFORP 1L, BDCAP10L, 

4R2XPL, R2YPL, R2ZPL, T0F0RP2L, BDCAP20L, 

5NG, ZZ, DG, RGD, AOG, BOG, 

6PXGR, PYGR, PZGR, TOTFORGE, DC AG, CASEG, AG, BG, 

6PXGL, PYGL, PZGL, TOTFORGE, DCAG, CASEG, AG, BG, 

7R1XG, R1YG, R1ZG, T0F0RG1, BDCAG10, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1, PI, LI, HI, El ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 

CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANCA( I STEP, NCOMP, MGPA, NS, NPS, NPR, NR, PHIS1, PHIR1, 
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IRS* RPS* RPR, RR* CB, A, V, PB, N, EB, FTT* 

2B1SM* PS* ES* WDSM* B1RM* PR, ER* WDRM, 

3T0S, TOF* SOS* SOF* CS, LS* FS, CR* LR, FR* ADI* AL1* AH1, AE1* 

4LPLAN* HPLAN, EPLAN ) 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 

CALL PLANOT ( ISTEP* N, V* CB* FB» NS* PDS* PHIS, WDSM* B1SM, FS* 

1NR, PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TOS, TOF, SOS, SOF* FTT, 

2AD1, API. AL1* AH1* AE1 ) 

CALCULATE LIFE AND DYNAMIC CAPACITY OF PLANETARY UNIT COMPONENTS 
CALCULATE LIFE OF PLANETARY UNIT 

CALL PLANCA< B I STEP, BNCOMP, MGPB, BNS, BNPS, BNPR* BNR, 

1BPHIS1, BPHIR1, BRS, BRPS* BRPR, BRR, BCB, BA, BV, BPB, BN, BEB, 

2BFTT, BB1SM, BPS, BES, BWDSM, BB1RM, BPR, BER, BWDRM* 

3T0PA, TOF, SOPA, SOF, BCS, BLS, BFS, BCR, BLR, BFR, BD1, BL1, BH1 , BE1 , 
4BLPLAN, BHPLAN* BEPLAN) 

PRINT OUT RESULTS FOR THE PLANETARY UNIT 

CALL PLANOT (BISTEP, BN, BV, BCB, BFB, BNS, BPDS, BPHIS* BWDSM, 

IBB ISM, BFS, BNR, BPDR, BPHIR, BWDRM, BB1RM, BFR, BNP, BNPS, BNPR, 

2T0PA, TOF, SOPA, SOF, BFTT , BD1, BP1, BL1, BH1, BE1 ) 

DEFINE TRANSMISSION LIFE ARRAYS 

DO 8 IE-1. 9 

ZE1(IE)=E1(IE) 

ZL1 ( IE)=L1 (IE) 

DO 9 IE-1, ISTEP 

ZE 1 ( I E+9 ) =AE 1 ( I E ) 

ZLK IE+9)=AL1 ( IE) 

DO 99 IE-1. BISTEP 

ZE1 ( IE+9+ ISTEP )=BE1 ( IE) 

ZL1 ( I E+9+ 1 STEP > =BL 1 ( IE) 

CALL LIFE( ZL1 , INCOMP, ZE1, ZNCOMP, LTRANS, ETRANS) 

HTR ANS-LTR ANS* 1 6666 . 667 / SOF 

START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 
CAPACITY 

DMIN—D1 ( 1 ) 

DO 21 1=2, 9 
21 IF(D1(I). LT. DMIN)DMIN=D1(I) 


134 



on w non oooo 


DELTATO®. 1*DMIN 

DELTATI=0. 5*DELT ATO/MG /MGS 

DTIR=0. 0 

DTIL=0. 0 

DT0=0. 0 

START COUNTER FOR DYNAMIC CAPACITIES BETWEEN 10 AND 100 PERCENT 
OF TRANSMISSION DYNAMIC CAPACITY 

DO 22 1=1, 10 

DTIR=DTIR+DELTATI 
DT I L=DT IL+DELT AT I 
DTO=DTO+DELT AT 0 
DYN ( I > =DTO 

CALCULATE LIFE FOR EACH DYNAMIC CAPACITY 
CALL DPBVCA( 

1DTIR, DTIL, DTO, SI, SOF, MG, MGS, NP, NG, 

2A0, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACP 1 , BDCAP 1 , AK1 , El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2), HI (2), T0F0RP1R, PI (2), BDCAP 1 OR, D1 (2), 

4L1<3), HI (3), T0F0RP2R, PI (3), BDCAP20R, D1 (3), 

5L1 (5), HI (5), T0F0RG1, PI ( 5) , BDCAG10, D1C5), 

6L1 (6> , HI (6) , T0F0RG2, P 1 < 6 > , BDCAG20, D 1 ( 6 ) , 

7L1 ( 1 ) , HI ( 1 > , DC APR, D1 < 1 ) , 

8L1 (4), HI (4), DCAG, Dl<4>, 

*L1 (7) , HI (7), DCAPL, D1 C7>, 

*L1C8>, Hl(8>, T0F0RP1L, PI (8), BDCAP10L, D1 (8), 

*L1 ( 9 ) , HI (9) , T0F0RP2L, P 1 ( 9 ) , BDCAP 10L, D1 ( 9 ) , 

9LI ( I ) , DUMB, DUMB ) 

CONTINUE 

CALL CAP (DYN, LI, 10, DSB, PSP) 
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C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

ADMIN*AD1 < 1 ) 

DO 23 1*2, I STEP 

23 IF< ADI ( I ) . LT. ADMIN) ADMIN* ADI ( I ) 

DELTATO*. 1* ADM IN 
DELTATOS*DELTATO/MGS 
DT0*0. 0 
DT0S*0. 0 

DO 24 1*1, 10 

DTOS=DTOS+DELTATOS 
DTO=DTO+DELT ATO 
DYN ( I ) =DTO 

CALL PLANCA( I STEP, NCOMP, MGPA, NS, NPS, NPR, NR, PHIS1, PHIR1, 

IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 

3DT0S, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR, ADI, AL1, AH1. AE1, ALI( I ), DUMB, 
4DUMB ) 

24 CONTINUE 

CALL CAP (DYN, ALI , 10, DPLAN, PPLAN) 

C 

C 

C 

C START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 

C CAPACITY 

C 

BDMIN=BD1 ( 1 > 

DO 30 1=2, BISTEP 

30 IF(BD1(I). LT. BDMIN) BDMIN=BD1 < I ) 

DELTATO*. 1*BDMIN 
DELTATOS=DELTATO/MGPA 
DT0=0. 0 
DT0S=0. 0 

DO 31 1*1, 10 

DTOS=DTOS+DELTATOS 
DTO=DTO+DELT ATO 
DYN ( I ) =DTO 

CALL PLANCA( BISTEP, BNCOMP, MGPB, BNS, BNPS, BNPR, BNR, BPHIS1, 
1BPHIR1, BRS, BRPS, BRPR, BRR, BCB, BA, BV, BPB, BN, BEB, BFTT, 

2BB1SM, BPS, BES, BWDSM, BB1RM, BPR, BER, BWDRM, 

3DT0S, DTO, SOPA, SOF, BCS, BLS, BFS, BCR, BLR, BFR, 

4BD1 , BL1, BH1, BE1, BLI ( I ) , DUMB, DUMB) 

31 CONTINUE 
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CALL CAP ( DYN, BLI, 10, BDPLAN, BPPLAN) 

START COUNTER FOR LOADS BETWEEEN 15 AND 150 PERCENT OF DYNAMIC 
CAPACITY 

IF (ADMIN. LT. DMIN)DMIN=ADMIN 
IF(BDMIN. LT. DMIN)DMIN=BDMIN 
DELTATO®. 1*DMIN 
DELTATOP=DELTATO/MGPA 
DELTATOS=DELTATO/MGS 
DELTATIR®. 5*DELT ATOS/MG 
DELTATIL®. 5*DELTAT0S/MG 
DTIR=0. 0 
DTIL=0. 0 
DT0S®0. 0 
DT0PA=0. 0 
DT0=0. 0 
DO 20 1=1, 10 

DTIR=DTIR+DELTATIR 
DT I L=DT I L+DELT AT I L 
DTOS=DTOS+DELTATOS 
DTOPA=DTOPA+DELTATOP 
DTO=DTO+DELTATO 
DYN ( I ) =DTO 

CALCULATE LIFE FOR EACH DYNAMIC CAPACITY 
CALL DPBVCA ( 

1DTIR, DTIL, DTQ, SI, SOF, MG, MGS, NP, NG, 

2A0, GAMMA 1 , ROT, SPR, PHE1, PHSI1, ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP 1 , DPI, ACPI, BDCAP1, AK1, El (2), ADJP1, 

5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, El (3), ADJP2, 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, El (5), ADJG1, 

7ITYPEG2, RFG2, NBG2, DG2, ACG2, BDCAG2, AK4, El (6), ADJG2, 

8F, E, PG, El ( 1 ) , RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R1XG, R1YG, R1ZG, R2XG, R2YG, R2ZG, 

3L1 (2), HI (2), T0F0RP1R, PI (2), BDCAP10R, Dl<2>, 

4L1 (3), HI (3), T0F0RP2R, PI (3), BDCAP20R, D1 (3), 

5L1 (5), HI (5), TOFORGl, PI (5) , BDCAG10, D1 (5), 

6L1(6), HI ( 6 ) , T0F0RG2, Pl<6>, BDCAG20, Dl(6>, 
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7L1 (1 ) , HI (1 ) , DC APR* D1 ( 1 >* 

8L 1(4),H1<4)» DC AG. Dl(4), 

*L1 (7), HI (7), DCAPL* Dl<7>» 

*L1 (8)* HI (8)* T0F0RP1L* PI (8) * BDCAPIOL* D1(B), 

*L1 (9), HI (9) * T0F0RP2L* PI (9) , BDCAPIOL, D1 (9), 

9LI(I), DUMB* DUMB) 

C 

C 

CALL PLANCA< ISTEP, NCOMP, MGPA, NS. NPS* NPR, NR, PHIS1* PHIR1* 
IRS. RPS* RPR, RR, CB* A, V* PB, N* EB* FTT, 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM* 

3DT0S, DTO, SOS, SOF, CS, LS, FS, CR, LR, FR* ADI, AL1, AH1, AE1, ALI ( I > , 
4DUMB, DUMB ) 

CALL PLANCA< BISTEP, BNCOMP, MGPB, BNS* BNPS, BNPR, BNR, BPHIS1, 
1BPHIR1, BRS, BRPS, BRPR* BRR, BCB* BA, BV, BPB, BN, BEB, BFTT, 

2BB1SM, BPS, BES, BWDSM, BB1RM* BPR, BER, BWDRM, 

3DT0PA, DTO, SOPA, SOF, BCS, BLS, BFS, BCR* BLR, BFR, BD1, BL1, 

4BH1 , BE1 , BLI ( I ) , DUMB, DUMB ) 

DO 12 IE=1, 9 

12 ZL1 ( IE)=L1 ( IE) 

DO 13 IE=1, ISTEP 

13 ZL1 ( IE+9)=AL1 (IE) 

DO 14 IE«1, BISTEP 

14 ZL1 ( IE+9+ISTEP )=BL1 (IE) 

CALL LIFE ( ZL1 , INCOMP, ZE1, ZNCOMP, ZLI(I),DUMB) 

20 CONTINUE 

CALL CAP (DYN, ZLI, 10, DTRANS* PTRANS) 

1220 FORMAT ( ' TOTAL TRANSMISSION'/) 

1221 FORMAT ( ' SPIRAL BEVEL UNIT'/ > 

1222 FORMAT ( ' PLANETARY UNIT'/) 

WRITE(1, 1221) 

CALL DPLHEtDSB, PSP, LSB, HSB, ESB > 

WRITEC1, 1222) 

CALL DPLHE(DPLAN, PPLAN, LPLAN, HPLAN, EPLAN) 

WRITEd, 1222) 

CALL DPLHE < BDPLAN* BPPLAN* B LPLAN, B HPLAN, BEPLAN) 

WRITEd, 1220) 

CALL DPLHE (DTRANS, PTRANS, LTRANS, HTRANS, ETRANS) 

STOP 

END 

SUBROUTINE DPBVCA( 

1TIR, TIL, TOF, SI, SOF, MG, MG1, NP, NG, 

2 AO, GAMMA1, ROT, SPR, PHE1, PHSI1* ZZ1, ZIP, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP 1 , NBP1, DPI, ACPI, BDCAP1. AK1, EGP1, ADUP1, 


138 



on non non non 


5ITYPEP2, RFP2* NBP2, DP2, ACP2, BDCAP2, AK2, EGP2, ADJP2, 

6ITYPEG1, RFG1* NBG1, DG1. ACG1, BDCAG1, AK3, EGG1, ADJG1 > 

7ITYPEG2, RFG2, NBG2, DG2< ACG2, BDCAG2, AK4, EGG2, ADJG2, 

8F, E, PG, EG, RPD, RGD, 

9PXPR, PYPR, PZPR, TOTFORR, PXGR, PYGR, PZGR, TOTFORGE, 

9PXPL, PYPL, PZPL, TOTFORL, PXGL, PYGL, PZGL, TOTFORGE, 

1R1XPR, R1YPR, R1ZPR, R2XPR, R2YPR, R2ZPR, 

1R1XPL, R1YPL, R1ZPL, R2XPL, R2YPL, R2ZPL, 

2R 1 XG, R 1 YG, R 1 ZG, R2XG, R2 YG, R2ZG, 

3L10P1R, H10P1R, TOFORP1R, PGP1, BDCAPIOR, BDCAP1TR, 

4L10P2R, H10P2R, T0F0RP2R, PGP2, BDCAP20R, BDCAP2TR, 

5L10G1, H10G1, TOFORG1, PGG1 , BDCAGIO, BDCAGIOT, 

6L10G2, H10G2, T0F0RG2, PGG2, BDCAG20, BDCAG20T, 

7LP10R, HPIOR, DCAPR, DCAPTR, 

8LG10, HGIO, DC AG, DCAGT , 

7LP10L, HPIOL, DCAPL, DCAPTL, 

3L10P1L, H10P1L, TOFORP1L, PGP1, BDCAPIOL, BDCAP1TL, 

4L10P2L, H10P2L, T0F0RP2L, PGP2, BDCAP20L, BDCAP2TL, 

9LSB, HSB, ESB) 

INTEGER PTL, GTL 

REAL LSB, LL<9) , EE(9> , NCOMP (9) 

REAL L10P1R, L10P2R, L10P1L, L10P2L, L10G1, L10G2, LPIOR, LPIOL, LGIO 
REAL MG, MG1. NP, NG, NBP1, NBP2, NBG1, NBG2 
DATA NCOMP/ 1. , 1 . , 1. , 1 . , 1 . , 1. , 1. , 1. , 1/ 


CALCULATION OF THE LOADS TRANSMITTED FROM THE LEFT PINION 


CALL GPSPR(TIR, AO, F, GAMMA1, ROT, SPR, PHE1, PHSI1, PXPR, PYPR, PZPR) 
T0TF0RR=SGRT<PXPR**2+PYPR**2+PZPR**2> 


CALCULATION OF THE LOADS TRANSMITTED FROM THE LEFT PINION 


CALL GPSPR (TIL, AO, F, GAMMA I, RQT, SPR, PHE1, PHSI1, PXPL, PYPL, PZPL) 
TOTFORL=SQRT ( P XPL**2+P YPL**2+P ZPL**2 ) 


CALCULATION OF THE LOADS TRANSMITTED TO THE GEAR FROM EACH PINION 


TOUTR=MG*TIR 
TOUTL=MG*TIL 
ROT 1=— ROT 
SPR1=SPR 

CALL GPSPR < TOUTR , AO, F. ZZ1, ROT1. SPR1, PHE1 , PHSI 1 , PXGR, PYGR, PZGR) 
CALL GPSPR ( TOUTL, AO, F, ZZ1, ROT1, SPR1, PHE1, PHSI1, PXGL, PYGL, PZGL) 


CHECK CASE FOR BEARING POSITION AND CALCULATE THE LOADS 
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C ON THE BEARINGS TRANSMITTED FROM THE LEFT PINION 

C 

IF (PTL. EG. 2) GO TO 18 
R1XPL=PXPL 
R2XPL=0. 0 
GO TO 19 

18 R1XPL=0. 0 
R2XPL=PXPL 

19 CONTINUE 

CALL BLC1 (PXPL, PYPL, PZPL, AP, BP, RP, R1YPL, R1ZPL, R2YPL, R2ZPL) 

C . 

C CHECK CASE FOR BEARING POSITION AND CALCULATE THE LOADS 

C ON THE BEARINGS TRANSMITTED FROM THE RIGHT PINION 

c 

IF (PTL. EG. 2) GO TO 20 
R1XPR=PXPR 
R2XPR=0. 0 
GO TO 21 

20 R 1 XPR=0. 0 
R2XPR=PXPR 

21 CONTINUE 

CALL BLC1 (PXPR, PYPR, PZPR, AP, BP, RP, R1YPR, R1ZPR, R2YPR, R2ZPR ) 

C 

C CHECK CASE FOR BEARING POSITION CALCULATE THE LOADS 

C ON THE BEARINGS TRANSMITTED FROM THE GEAR DUE TO THE RIGHT PINION 

C 

IF(GTL. EG. 2) GO TO 22 
R1XGR=PXGR 
R2XGR=0. 0 
GO TO 23 

22 R1XGR=0. 0 
R2XGR= S PXGR 

23 CONTINUE 

CALL BLC1 ( PXGR, PYGR# PZGR, AG, BG, RG, R1YGR, R1ZGR, R2YGR, R2ZGR ) 

C 

C CHECK CASE FOR BEARING POSITION CALCULATE THE LOADS 

C ON THE BEARINGS TRANSMITTED FROM THE GEAR DUE TO THE PINION 

C 

IF(GTL. EG. 2) GO TO 24 
R1XGL=PXGL 
R2XGL=0. O 
GO TO 25 

24 R1XGL=0. 0 
R2XGL=PXGL 

25 CONTINUE 
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CALL BLC1 (PXGL, PYGL, PZGL, AO, BO, RO, R1Y0L, R1Z0L, R2Y0L, R2Z0L) 


SUM OF THE TWO RADIAL AND TWO TANGENTIAL FORCES INTO TWO COMPONENTS 
IN THE RADIAL DIRECTION 


AZIP=( ZIP-90. >*PII/180. 

R 1 YG=R 1 YOR-R 1 YGL*S I N ( A Z I P ) -R 1 ZOL*COS < AZ I P > 
R 1 ZG=R 1 ZGR+R 1 YGL*COS < AZ I P > -R 1 ZGL*SIN < AZ IP ) 
R2YG=R2YGR-R2YGL*S I N < AZ IP ) -R2ZGL*C0S < AZ IP ) 
R2ZG=R2ZGR+R2YGL*C0S < AZ I P ) -R2ZGL*SIN< AZ IP > 
R 1 XG=R 1 XGR+R 1 XOL 
R2XG=R2XGR+R2XGL 


CALCULATE THE LIFE OF RIGHT PINION BEARING #1 


T0FR=TIR*MG*MG1*2. 0 

CALL BDCAP ( ITYPEP 1 , R1XPR, R1YPR, R1ZPR, RFP1, NBPi, Dpi, ACPI, 30F, ADJPi 
*, BDCAP 1, L10P1R, H10P1R, MG, MG1, AK1, TOFORPIR, PGP1, BDCAPIOR) 

BDCAP 1 TR=BDCAP 1 OR*TOFR /TOFORP 1R 

LL(2)=L10P1R 

EE ( 2 ) =EGP 1 


CALCULATE THE LIFE OF RIGHT PINION BEARING #2 


CALL BDCAP ( ITYPEP2, R2XPR, R2YPR, R2ZPR, RFP2, NBP2, DP2, ACP2, SOF, ADJP2 
*, BDCAP2, L10P2R, H10P2R, MG, MG1, AK2, T0F0RP2R, PGP2, BDCAP20R ) 

BDC AP2TR=BDC AP20R*T0FR /T0F0RP2R 

LL(3)=L10P2R 

EE(3)=EGP2 


CALCULATE THE LIFE OF LEFT PINION BEARING #1 


T0FL=TIL*MG*MG1*2. 0 

CALL BDCAP ( ITYPEP 1 , R 1 XPL, R1YPL, R 1 ZPL, RFP 1 , NBP 1 , DP 1 , ACP 1 , SOF, ADJP 1 
*, BDCAP 1, L10P1L, H10P1L, MG, MG1, AK1, TOFORP1L, PGP1, BDCAPIOL) 

BDCAP 1 TL=BDCAP !OL*TOFL/TOFORP 1L 

LL(8>=L10P1L 

EE ( 8 ) =EGP 1 


CALCULATE THE LIFE OF LEFT PINION BEARING #2 


CALL BDCAP ( ITYPEP2, R2XPL, R2YPL, R2ZPL, RFP2, NBP2, DP2, ACP2, SOF, ADJP2 
*, BDCAP2, L10P2L, H10P2L, MG, MG1, AK2, T0F0RP2L, PGP2, BDCAP2QL ) 
BDCAP2TL=BDCAP20L*T0FL/T0F0RP2L 
LL ( 9 > =L10P2L 
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EE(9)=EGP2 


CALCULATE THE LIFE OF GEAR BEARING #1 


CALL BDCAPt ITYPEG1, R1XG, R1YG, R1ZG, RFG1, NBG1, DG1, ACG1, SOF, ADJGi 
*, BDCAG1, L 1 OG 1 » H10G1, 1. , MG1, AK3, TOFORG1, PGG1, BDCAGIO) 

B DC AG 1 OT=B DC AG 1 0*T0F / TOFOR G 1 

LL ( 5 ) =L 1 OG 1 

EEC5)=EGG1 


CALCULATE THE LIFE OF GEAR BEARING #2 


CALL BDCAP ( ITYPEG2, R2XG, R2YG, R2ZG, RFG2, NBG2, DG2, ACG2, SOF, ADUG2 
*, BDCAG2, L10G2, H10G2, 1. , MG1, AK4, T0F0RG2, PGG2, BDCAG20) 

B DC AG20T =B DC AG20*T0F / T0F0RG2 
LL ( 6 > =L 1 0G2 
EE ( 6 ) =EGG2 


CALCULATE THE LIFE OF THE GEAR 


CALL SET1 (PHE1, F, E, MG, MG 1 , NP , NG, SOF, LPIOR, HPIOR, LPIOL, HPIOL, 
*LG10, HGIO, PG, EG, TOTFORR, TOTFORL, RPD, RGD, DC APR, DCAPL, DC AG, 
*TOTFORGE) 

DC APTR=DCAPR*TOFR /TOTFORR 

DC APTL=DCAPL*TOFL /TOTFORL 

DCAGT=DCAG*TOF/TOTFORGE 

LL( 1 )=LP10R 

LL ( 7 ) =LP 10L 

LL ( 4 ) =LG10 

EE( 1 ) =EG 

EE ( 4 ) =EG 

EE ( 7 ) =EG 


CALCULATE THE LIFE OF THE TRANSMISSION 


CALL LIFE(LL, 9, EE, NCOMP, LSB, ESB ) 

HSB=LSB* 16666. 667/SOF 

RETURN 

END 

FUNCTION BASCAP ( R 1 , R2, PHI , WD, K1 ) 


FUNCTION SUBROUTINE BASCAP CALCULATES THE BASIC DYNAMIC CAPACITY OF 
A GEAR TOOTH 
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REAL Kl, Rl, R2* WD, PHI, BASCAP 
C 

C INPUTS 
C 

C Kl MATERIAL CONSTANT OF THE MESH (PSD 

C R 1 PITCH RADIUS OF THE DRIVING GEAR (IN) 

C R2 PITCH RADIUS OF THE DRIVEN GEAR (IN) 

C WD FACE WIDTH OF THE GEAR MESH (IN) 

C PHI PRESSURE ANGLE OF THE GEAR MESH (RADIANS) 

C 

C OUTPUT 
C 

C BASCAP BASIC DYNAMIC CAPACITY OF ONE TOOTH IN THE MESH (LB) 

C 

BASCAP=K1*WD*SIN(PHI)/(1. O/Rl + 1. 0/R2) 

RETURN 

END 

SUBROUTINE BDCAP ( I TYPE, RX, RY, RZ, V, BALLS, DIA, ANGLE, SPEED2, LAF, 

*BDC, LF, HF, MG, MG1, AK, FE, A, BDCOUT) 

C 

REAL LF, LIO, MG, MG1, L101, LF1. LAF 
C 

C — — — — 

C THIS SUBROUTINE CALCULATES THE BASIC DYNAMIC CAPACITY AND THE LIFE 

C OF THE BEARING 

C 
C 
C 

C 

C 

C INPUT 
C 

C I TYPE -TYPE OF BEARING 

C 1 SINGLE ROW BALL BEARING 

C 2 DOUBLE ROW BALL BEARING 

C 3 SINGLE ROW ROLLER BEARING 

C 4 DOUBLE ROW ROLLER BEARING 

C 5 SINGLE ROW BALL BEARING + SINGLE ROW ROLLER BEARING 

C & SINGLE ROW TAPER ROLLER BEARING 

C 7 DOUBLE ROW TAPER ROLLER BEARING 

C RX -AXIAL LOAD ON THE BEARING 

C RY -RADIAL LOAD ON THE BEARING 

C RZ -TANGENTIAL LOAD ON THE BEARING 

C V -ROTATION FACTOR 

C BALLS -NUMBER OF BALLS OR ROLLERS 
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DIA -DIAMETER OF BALLS OR ROLLERS 
ANGLE -CONTACT ANGLE 

(ONLY FOR BALL BEARINGS) 

SPEED2-0UTPUT SPEED OF GEAR SHAFT (RPM) 

BDC -BASIC DYNAMIC CAPACITY OF THE BEARING 
AK -RATIO OF RADIAL LOAD RATING TO THRUST LOAD RATING 
(ONLY FOR TAPERED ROLLER BEARINGS) 

MG -SPEED RATION FROM OUTPUT SHFT TO COMPONENT 

INPUT 

LF -LIFE OF THE BEARING (MILLIONS OF CYCLES) 

HF -LIFE OF THE BEARING (HOURS) 

FE -TOTAL FORCE ON THE BEARING 

ARX=ABS(RX) 

A 1 0=SGRT ( RY**2+R Z**2 ) 

IF ( I TYPE. GT. 1 )G0T020 

10 CALL XXYY1 (A10, ARX, V, BALLS, DIA, ANGLE, X,Y) 

A=3. 0 
G0T080 

20 IF ( I TYPE. GT. 2>G0T030 

CALL XXYY2( A10, ARX, V, BALLS, DIA, ANGLE, X, Y> 

A=3. 0 
G0T080 

30 IF ( I TYPE. GT. 4 ) G0T060 
X=1.0- 
Y=0. 0 
A=3. 3 
G0T080 

60 I F ( I TYPE. GT. 5 ) G0T070 

CALL TAPERKA10, ARX, AK, FE) 

A=3. 3 
G0T081 

70 CONTINUE 

CALL TAPER2(A10, ARX, AK, FE) 

A=3. 3 
G0T081 

80 CONTINUE 
FE=X*V*A10+Y*ARX 

81 CONTINUE 
L10=(BDC/FE)**A 
LF=LAF*L 1 O/MG/MG 1 
HF=LF* 16666. 667/SPEED2 
VEG=1. /A 
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BDCQUT*(LAF*1. /MG/MG1 )**VEG*BDC 
RETURN 
END 

SUBROUTINE BLC1 (PX, PY, PZ, A, B» RP, R1Y, R1Z, R2Y, R2Z) 

C 

C THIS SUBROUTINE CALCULATES THE BEARING REACTION FOR CASE #1 

C 

C INPUTS 
C 

C A DISTANCE FROM BEARING TQ GEAR (IN) 

C B DISTANCE FROM GEAR TO BEARING (IN) 

C PX FORCE AXIAL ON THE GEAR (LB) 

C PY FORCE RADIAL ON THE GEAR (LB) 

C PZ FORCE TANGENTIAL ON THE GEAR (LB) 

C RP PITCH RADIUS OF THE GEAR (LB) 

C 

C OUTPUT 
C 

C R1Y REACTION OF BEARING #1 IN THE Y-DIRECTION (LB) 

C R2Y REACTION OF BEARING #2 IN THE Y-DIRECTION (LB) 

C R1Z REACTION OF BEARING #1 IN THE Z-DIRECTION (LB) 

C R1Z REACTION OF BEARING #2 IN THE Z-DIRECTION (LB) 

C 

R 1 Y= ( -P Y*B+PX*RP ) / ( A+B ) 

R1Z=-PZ*B/(A+B> 

R2Y= ( -P Y*A-PX*RP ) / ( A+B ) 

R2Z=-PZ*A/(A+B) 

RETURN 

END 

C 

SUBROUTINE GPSPR(TI, AO, F, GAMMA, ROT, SPR, PHE, PHSI, PXP, PYP, PIP ) 

C 

C 

C THIS SUBROUTINE CALCULATES THE LOADS PRODUCED BY THE PINION 

C 

C INPUTS 

C 

C TI INPUT TORQUE (LB-IN) 

C AO CONE DISTANCE (IN) 

C GAMMA CONE ANGLE (RADIANS) 

C ROT DIRECTION OF ROTATION 

C 1 FOR CLOCKWISE 

C -1 FOR COUNTERCLOCKWISE 

C SPR SPIRAL DIRECTION 

C 1 RIGHT HAND 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


10 

c- 

c 

c- 


c 

c 

c 


20 


-1 LEFT HAND 

PHE PRESSURE ANGLE (RADIANS) 

PHSI SPIRAL ANGLE (RADIANS) 

OUTPUT 


PXP THRUST LOAD ON GEAR 

PYP RADIAL LOAD ON GEAR 

PZP TANGENTIAL LOAD ON GEAR 


TANGENTIAL TOOTH LOAD 


PZP=-TI/( (AO-F/2. 0)*SIN( GAMMA) ) 


CHECK FOR ROTATION AND HAND OF THE PINION 


ROTSPR=ROT*SPR 
IF(ROTSPR. LT. 1. 0)G0 TO 10 


THRUST LOAD 


P XP=P ZP* ( TAN ( PHE ) *S I N ( GAMMA ) — S IN ( PHS I ) *COS ( GAMMA ) > 
*/COS(PHSI) 


RADIAL TOOTH LOAD 


P YP=P ZP* ( TAN ( PHE ) *COS ( GAMMA ) +S I N ( PHS I ) *S IN ( GAMMA ) > 
*/COS(PHSI ) 

GO TO 20 
CONTINUE 


THRUST LOAD 


P XP=P ZP* ( TAN ( PHE ) *S I N ( GAMMA ) +S I N ( PHS I ) *COS ( GAMMA ) ) 
*/CQS(PHSI ) 


RADIAL LOAD 


P YP=P ZP* ( TAN ( PHE ) *COS ( GAMMA ) -S I N ( PHS I ) *S I N ( GAMMA ) > 
*/COS(PHSI ) 

RETURN 

END 


C 

C 
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SUBROUTINE LEASQR ( N, X- Y, A, B) 


LEASQR FITS DATA PAIRS WITH A LINEAR EQUATION OF THE FORM 
Y S A+B X+E 

WHERE# X IS THE INDEPENDENT VARIABLE AND 

Y IS THE DEPENDENT VARIABLE. 

E IS THE RESIDUAL (WHICH IS MINIMIZED) 
THE ESTIMATED EQUATION IS THEN Y=A+BX. 


INTEGER I,N 

REAL A, B, DENOM, NUMA, NUMB, SSX, SXY, SX, SY, X, Y 
DIMENSION X (N) , Y(N) 


THE VARIABLES ARE: 

N — NUMBER OF DATA PAIRS, (X,Y) (PASSED TO PROGRAM) 

X — INDEPENDENT VARIABLE OF DATA TO BE FITTED ( PASSED TO PROGRAM) 
Y— DEPENDENT VARIABLE OF DATA TO BE FITTED (PASSED TO PROGRAM) 

A — Y INTERCEPT OF FITTED LINE (PASSED FROM PROGRAM) 

B — SLOPE OF THE FITTED LINE (PASSED FROM PROGRAM) 

I — DO LOOP COUNTER 

DENOM — INTERMEDIATE CALCULATION 

NUMA — I NTERMEDATE CALCULATION 

NUMB— INTER MED ATE CALCULATION 

SSX — SUMMATION OF THE SQUARES OF X 

SXY — SUMMATION OF THE PRODUCT OF X AND Y 

SX— SUMMATION OF X 

SY — SUMMATION OF Y 

INITIALIZE SUMMATIONS 

SSX=0. 0 
SX=0. 0 
SXY=0. 0 
SY=0. 0 

CALCULATE SUMS 

DO 10 1 = 1, N 
SX=SX+X(I) 

SY=SY+Y ( I ) 

SXY=SXY+X( I )*Y( I ) 
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SSX=SSX+X(I)**2 
10 CONTINUE 

CONVERT N TO REAL TYPE, CALCULATE SLOPE, B AND INTERCEPT, A 

NUMA=SY*SSX-SXY*SX 
NUMB=FLOAT ( N ) *SXY-SX*SY 
DENOM-FLOAT < N ) *SSX-SX**2 
A=NUM A / DENOM 
B=NUMB /DENOM 
RETURN 
END 

SUBROUTINE LIFE( ALIFE, NN, EW, NCOMP, LT10, ET) 


LIFE CALCULATES THE WE I BULL EXPONENT FOR THE SPIRAL BEVEL 
TRANSMISSION AND THE L10 LIFE OF THE TRANSMISSION. 


REAL A, E, L, N, S, EB, EG, ET, DIFF, DELTAL, OLDIFF, LT10, NCOMP (NN) 
INTEGER I 

DIMENSION L(25>, S<25>, ALIFE(NN), EW(NN) 

C 

C INPUTS 

C NCOMP ( I ) NUMBER OF EACH COMPONENT 

C EW( I ) WEIBULL EXPONENT OF THE COMPONENT 

C ALIFE(I) L10 LIFE OF CONPONENT 

C 

C OUTPUT 
C 

C ET WEIBULL EXPONENT OF THE GEAR TRANSMISSION 

C LT10 L10 LIFE OF THE TRANSMISSION IN INPUT 

C REVOLUTIONS (CYCLES) 

C 

C MISCELLANEOUS VARIABLES: 

C L ( I ) 

C S(I> 

C 

C A 

C I 

C E 

C DIFF 

C 

C DELTAL 

C OLDIFF 


GENERATED SET OF TRANSMISSION LIVES SUN REVS 
SET OF TRANSMISSION RELIABILITIES CORRESPONDING TO 
THE SET OF TRANSMISSION LIVES 

INTERCEPT OF LINE CALCULATED BY LEAST SQUARE ROUTINE 
DO LOOP COUNTER 

SMALLER OF THE TWO WEIBULL EXPONENTS 

DIFFERENCE BETWEEN ITERATED PROBABILITY OF SURVIVAL 

AND DESIRED VALUE 

HALF INTERVAL LIFE INCREMENT SUN REVS 

PAST VALUE OF DIFF; USED WITH DIFF FOR DETERMINING 
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IF ITERATION HAS PASSED DESIRED VALUE 


CALCULATE THE TRANSMISSION'S L5 LIFE USING A HALF INTERVAL METHOD 
DETERMINE MINIMUM L10 LIFE & CALCULATE SEED VALUE FOR FINDING L5 LIFE 

CALL MINIMUM<ALIFE, NN, ASLL) 

L( 1 >=ASLL/10. 

OLDIFF=l . O 
DELTAL=L( 1 > 

ITERATION FOLLOWS 

DO 10 1=1, 50 
SLIFE=0. O 
DO 31 IN=1, NN 

SLIFE=SLIFE+NCOMP< IN)*<L< 1 )/ALIFE< IN) )**EW< IN) 

31 CONTINUE 

S<1)=0. 9**SLIFE 

IF(S( 1 ) . GE. 0. 94. AND. S<1 ). LE. 0. 96>G0T020 
DIFF=S< 1 )— O. 95 

IF<DIFF*OLDIFF. LT. 0. 0 ) DELT AL=-DELT AL / 2 . 0 

QLDIFF=DIFF 

L < 1 ) =L < 1 ) +DELT AL 

10 CONTINUE 

20 CONTINUE 

0LDIFF=1. 0 
SL=ASLL/10. 

DELTAL=SL 
DO 11 1=1, 50 
SLIFE=0. 0 
DO 37 IN=1 , NN 

SL I FE=SL I FE+NC OMP < I N ) * < SL / AL I FE < I N ) > **E W < I N ) 

37 CONTINUE 

SD=SLIFE 

IF( SD. GE. 0. 99. AND. SD. LE. 1. 01 )G0T021 
DIFF=SD— 1. 00 

IF<DIFF*OLDIFF LT. 0. O ) DELTAL=-DELTAL/2. 0 

OLDIFF=DIFF 

SL=SL-DELT AL 

11 CONTINUE 
WRITE(1, 100) 

100 FORMAT ( 5X, 'ITERATION FOR THE TRANSMISSION "S L5 LIFE WAS', 

1 'UNSUCCESSFUL. '/, 5X, 'PROGRAM TERMINATING') 

C 
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C CALCULATE THE TRANSMISSION'S L50 LIFE USING A HALF INTERVAL METHOD 
C CALCULATE A SEED VALUE LARGER THE L50 AND ITERATE DOWN TO L50 LIFE 
C 

21 CONTINUE 
CONTINUE 
E=100. 

DO 34 1 = 1, NN 

IF(EW< I >. LT. E)E=EW( I ) 

34 CONTINUE 

L ( 25 ) =L ( 1 ) * ( ALOG ( 1 . O/O. 5)/AL0G(l. 0/0. 95) )**(1. O/E) 

DELT AL=L ( 1 ) 

0LDIFF=1. 0 
C 

C ITERATION FOLLOWS 
C 

DO 30 1=1, 50 
SLIFE=0. 0 
DO 32 IN=1, NN 

SL I FE=SL I FE+NCOMP (IN)*(L(25)/ALIFE(IN)) **EW (IN) 

32 CONTINUE 

S ( 25 ) =0. 9**SLIFE 

IF(S (25) . GE. 0. 49. AND. S(25). LE. 0. 5DG0T035 
DIFF=0. 5— S < 25 ) 

IF (DIFF*OLDIFF. LT. 0. 0 ) DELT AL=-DELT AL / 2 . 0 
OLDIFF=DIFF 
L ( 25 > =L ( 25 > -DELTAL 
30 CONTINUE 

WRITEd, 110) 

110 FORMAT ( 5X, 'ITERATION FOR THE TRANSMISSION "S L50 LIFE WAS', 

1 'UNSUCCESSFUL. '/, 5X, 'PROGRAM TERMINATING') 

STOP 

C 

C ITERATIONS FOR L5 AND L50 ARE COMPLETE! CALCULATE LIFE INCREMENT 
C FOR GENERATION OF TABLE OF LIVES AND RELIABILITIES (25 DATA PAIRS) 
C 

35 CONTINUE 

DELT AL= ( L ( 25 > -L ( 1 ) ) /24. 0 
C 

C CALCULATE TABLE OF LIVES AND RELIABLITIES (L, S) 

C 

DO 40 1=2, 24 
L( I )=L( I— 1 )+DELTAL 
SLIFE=0. 0 
DO 33 IN=1, NN 

SLIFE=SL I FE+NCOMP ( IN)*(L( I ) /ALIFE( IN) )**EW( IN) 
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33 CONTINUE 

S(I>=0. 9**SLIFE 
40 CONTINUE 

C 

C TRANSFORM USING NATURAL LOGS SO A LINEAR REGRESSION MAY BE USED 
C 

DO 50 1=1,25 
L ( I ) =ALOG ( L ( I > ) 

S ( I ) =ALOG ( ALOG ( 1 . 0/S(I>>) 

50 CONTINUE 

C 

C CALCULATE THE TRANSMISSION'S WE I BULL EXPONENT 
C 

CALL LEASQR ( 25, L, S, A, ET ) 

C 

C CALCULATE THE TRANSMISSION'S L10 LIFE 
C 

LT10=EXP< ( ALOG ( ALOG ( 1 . 0/0. 9) )-A)/ET) 

RETURN 

END 

C 

SUBROUTINE MINI MUM ( AL I FE, N, AMIN) 

C 

C CHECK FOR MINIMUN NUMBER IN ARRAY 
C 

DIMENSION ALIFE(N) 

AM I N= 10000000. 

DO 30 1=1, N 

IF < ALIFE( I > . LT. AMIN) AMIN=ALIFE( I ) 

30 CONTINUE 

RETURN 
END 

C 

SUBROUTINE SET1 (PHE, F, E, MG, MG1, NP, NG, SPEED2, LP10R, HP10R, 
♦LP10L, HP10L, LG10, HG10, PG, EG, FOR, FOL, Rl, R2, DCAPR, DCAPL, 

♦DC AG, FE) 

C 

C CALCULATION OF THE LIFE OF THE PINION AND GEAR MESH 

C 

c 

c INPUTS 
C 

C PHE -PRESSURE ANGLE OF THE MESH (RADIANS) 

C F -FACE WIDTH (IN) 

C E -MESH MATERIAL CONSTANT (PSI) 
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C MG -GEAR RATIO 

C NP -NUMBER OF TEETH OF THE PINION 

C NG -NUMBER OF TEETH OF THE GEAR 

C SP EED2-SP EED OF OUTPUT SHAFT 

C PG -MESH MATERIAL CONSTANT 

C EG -MESH WE I BULL EXPONENT 

C FOR -TOTAL FORCE TRANSMITTED 

C R1 -REFERENCE PLANE RADIUS OF SPIRAL BEVEL PINION (IN) 

C R2 -REFERENCE PLANE RADIUS OF SPIRAL BEVEL GEAR (IN) 

C 

C OUTPUT 
C 

C LP 10 -THE L10 LIFE OF THE PINION (CYCLES) 

C HP 10 -THE L10 LIFE OF THE PINION (HOURS) 

C LG 10 -THE L10 LIFE OF THE GEAR (CYCLES) 

C HG10 -THE L10 LIFE OF THE GEAR (HOURS) 

C DCAP -THE DYNAMIC CAPACITY OF THE PINION (LBS) 

C DCAG -THE DYNAMIC CAPACITY OF THE GEAR (LBS) 

C FOR -FORCE ON THE PINION 

C FE -FORCE ON THE GEAR 

C 

REAL NP, NG, MG, MG1, LP10R, LP10L, LG10, LP10TR, LP10TL, LG10T 
Fl=. 5*F 

CBG=BASCAP ( R 1 , R2, PHE, FI, E) 

FE=( (F0R**PG+F0L**PG)/2. >**(1. /PG) 

CALCULATE LIFE OF GEAR TEETH 

LP 10TR= ( CBG/FOR ) **PG 
LP10TL=(CBG/F0L)**PG 
LG10T=(CBG/FE)**PG 
VEG=1. /EG 
VPG=1. /PG 

CALCULATE LIFE OF PINION AND GEAR 

LP 1 0R= ( 1 . /NP ) **VEG/MG/MG 1 *LP 10TR 
HP10R=LP10R*16666. 666/SPEED2 
LP 10L= ( 1 . /NP ) **VEG/MG/MG1*LP 10TL 
HP10L=LP10L*16666. 666/SPEED2 
LG 10= ( 1 . /NG)**VEG/MG1*LG10T 
HG 1 0=LG 1 0* 1 6666 . 666/SPEED2 

CALCULATE BASIC DYNAMIC CAPACITY OF PINION AND GEAR 
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DCAPR= ( ( 1 . /NP > **VEG/MG/MG 1 > **VPG*CBG 
DCAPL*< (1. /NP)**VEG/MG/MG1 )**VPG*CBG 
DCAG*< <1. /NG)**VEG/MG1 )**VPG*CBG 
RETURN 
END 

SUBROUTINE TAPER 1 <R, T, AK, REA) 


THIS SUROUTINE CALCULATES THE EQUIVALENT REACTION AT A 
SINGLE ROW TAPERED ROLLER BEARING 


INPUT 

R -RADIAL LOAD 

T -THRUST LOAD 

AK -RATIO OF BASIC RADIAL RATING TO BASIC THRUST RATING 

OUTPUT 


RE -EQUIVALENT RADIAL LOAD 


REA=. 4*R+AK*T 


C 

C 

C 

c 

c 

c 

c 

C 

C 

c 

C 

C 

C 


IF (REA. LT. R)REA=R 

RETURN 

END 

SUBROUTINE TAPER2(R/ T, AK/ REA) 


THIS SUROUTINE CALCULATES THE EQUIVALENT REACTION AT A 
DOUBLE ROW TAPERED ROLLER BEARING 


INPUT 

R -RADIAL LOAD 

T -THRUST LOAD 

AK -RATIO OF BASIC RADIAL RATING TO BASIC THRUST RATING 

OUTPUT 

RE -EQUIVALENT RADIAL LOAD 


CHECK«0. 60*R/AK 
IF (T. GT. CHECK) GOTO 10 
REA=R*. 5+. 83*AK*T 
G0T020 

10 REA=0. 40*R+AK*T 

20 CONTINUE 

RETURN 
END 
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SUBROUTINE XXYY1 (FR1, FA, V, BALLS, DIA, ANGLE, X, Y) 


THIS SUBROUTINE CALCULATES THE RADIAL FACTOR AND THRUST FACTOR 
FOR SINGLE ROW BALL BEARINGS 


INPUTS 

FR1 TOTAL RADIAL LOAD (LBS) 

FA TOTAL THRUST LOAD (LBS) 

V ROTATION FACTOR OF BEARING 

1.0 FOR INNER RACE ROTATION 
1.2 FOR OUTER RACE ROTATION 

BALLS NUMBER OF BALLS PER BEARING 

DIA DIAMETER OF THE BALLS 

ANGLE CONTACT ANGLE OF THE BALL BEARING 

OUTPUTS 

X RADIAL FACTOR 

Y THRUST FACTOR 

DIMENSION A(10), Yl(9), Y2(9>, Y3(9 ) , El (9), E2(9>, E3(9) 

DATA XI, X2, X3, X4, X5, X6, X7, X8/0. 56, 0. 46 , 0. 44, . 43, . 41, . 39, . 37, . 35/ 
DATA Y4, Y5> Y6» Y7, Y8/1. 00, . 87, . 76, . 66, 57/ 

DATA E4, E5, E6, E7, E8/0. 57, 0. 68, 0. 80, 0. 95, 1. 14/ 

DATA A/25. , 50. , 100. , 150. , 200. , 300. , 500. , 750. , 1000. , 10000. / 

DATA Yl/2. 30, 1. 99, 1. 71, 1. 55, 1. 45, 1. 31, 1. 15, 1. 04, 1. 00/ 

DATA Y2/1. 88, 1. 71, 1. 52, 1. 41, 1. 34, 1. 23, 1. 10, 1. 01, 1. 00/ 

DATA Y3/1. 47, 1. 40, 1. 30, 1. 23, 1. 19, 1. 12, 1. 02, 1. 00, 1. 00/ 

R0WS=1. 0 

CHECK2=FA/(V*FR1 ) 

IF( ANGLE. GT. 5. 00)GOT010 
CHECK 1 =FA/ ( ROWS*BALLS*D I A**2 ) 

DO 1 1 = 1,9 

IF ( CHECK 1. GT. A( I ). AND. CHECK1. LT. A( 1 + 1 ) )G0T02 

1 CONTINUE 

IF( I. GT. 9)1=9 

2 IF (CHECK2. LE. El ( I ) )GOT01000 
X=X1 

Y=Y1 ( I ) 

G0T0999 

10 CHECK1=FA/(BALLS*DIA**2) 

IF (ANGLE. GT. 10. 0)G0T020 
DO 11 1=1,9 

IF( CHECK 1 . GT. A( I >. AND. CHECK1. LT. A( 1 + 1 ) )G0T012 


154 



11 CONTINUE 
IFU. GT. 9)1*9 

12 IF(CHECK2. LE. E2( X ) ) GOTO 1000 
X*X2 

Y*Y2( I > 

G0T0999 

20 I F ( ANGLE. GT. 1 5. 0 ) G0T030 
DO 21 1*1,9 

IF(CHECK1. GT. A<I>. AND. CHECK1. LT. A( 1+1 ) )G0T022 

21 CONTINUE 
IFU. GT. 9)1*9 

22 IF(CHECK2. LE. E3< I ) ) GOTO 1000 
X=X3 

Y*Y3< I ) 

G0T0999 

30 IF(ANGLE. GT. 20. 0)G0T04O 

IF«CHECK2. LE. E4)G0T01000 
X=X4 
Y*Y4 
G0T0999 

40 IF (ANGLE. GT. 25. 0>G0T050 

IF (CHECK2. LE. E5) GOTO 1000 
X=X5 
Y=Y5 
G0T0999 

50 IF (ANGLE. GT. 30. 0>G0T060 

IF (CHECK2. LE. E6)GQT01000 
X=X6 
Y=Y6 
G0T0999 

60 IF ( ANGLE. GT. 35. 0 ) G0T070 

IF (CHECK2. LE. E7)GOT01000 
X=X7 
Y=Y7 
G0T0999 

70 IF(CHECK2. LE. E8) GOTO 1000 

X=X8 
Y=Y8 
G0T0999 
1000 X*l. 0 

Y=0. O 

999 RETURN 

END 

SUBROUTINE XXYY2(FR1, FA# V# BALLS, DIA, ANGLE# X, Y) 

C 
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THIS SUBROUTINE CALCULATES THE RADIAL FACTOR AND THRUST FACTOR 
FOR DOUBLE ROW BALL BEARINGS 


INPUTS 

FR1 TOTAL RADIAL LOAD <LBS> 

FA TOTAL THRUST LOAD (LBS) 

V ROTATION FACTOR OF BEARING 
1.0 FOR INNER RACE ROTATION 
1. 2 FOR OUTER RACE ROTATION 

BALLS NUMBER OF BALLS PER BEARING ROW 

DIA DIAMETER OF THE BALLS 

ANGLE CONTACT ANGLE OF THE BALL BEARING 

OUTPUTS 

X RADIAL FACTOR 

Y THRUST FACTOR 

DIMENSION A(10),Y1(9)» Y2(9> * Y3(9) « Y4(9 ) , Y5 (9 ) , Y6(9>, Y7(9> 
DIMENSION El (9), E2(9>, E3(9>, E4(9> 

DATA A/25. , 50. , 100. , 150. , 200. , 300. , 500. , 750. , 1000. , 10000. / 

DATA Yi/2. 30, 1. 99, 1. 71, 1. 55, 1. 45, 1. 31, 1. 15, 1. 04, 1. 00/ 

DATA Y2/2. 78, 2. 40, 2. 07, 1. 87, 1. 75, 1. 58, 1. 39, 1. 26, 1. 21/ 

DATA Y3/3. 74, 3. 23, 2. 78, 2. 52, 2. 36, 2. 13, 1. 87, 1. 69, 1. 63/ 

DATA Y4/2. 18, 1. 98, 1. 76, 1. 63, 1. 55, 1. 42, 1. 27, 1. 17, 1. 16/ 

DATA Y5/3. 06, 2. 78, 2. 47, 2. 29, 2. 18, 2. 00, 1. 79, 1. 64, 1. 63/ 

DATA Y6/1. 65, 1. 57, 1. 46, 1. 38, 1. 34, 1. 26, 1. 14, 1. 12, 1. 12/ 

DATA Y7/2. 39,2. 28, 2. 11,2. 00, 1. 93, 1. 82, 1. 66, 1. 63, 1. 63/ 

DATA El/O. 19, 0. 22, 0. 26, 0. 28, 0. 30, 0. 34, 0. 38, 0. 42, 0. 44/ 

DATA E2/0. 23, 0. 26, 0. 30, 0. 34, 0. 36, 0. 40, 0. 45, 0. 50, 0. 52/ 

DATA E3/0. 29, 0. 32, 0. 36, 0. 38. 0. 40, 0. 44, 0. 49, O. 54, 0. 54/ 

DATA E4/0. 38. 0. 40, 0. 43, 0. 46, 0. 47, 0. 50, 0. 55, 0. 56, 0. 56/ 

DATA XI, X2, X3, X4, X5, X6, X7, X8/0. 56, 1. , 0. 78, 1. , 0. 75, 1. , 0. 72, 1. / 
DATA X9» X10, Xll, X12, X13, X14, X15, X16, X17/0. 70, 1. , 0. 67, 1. , 0. 63 
*, 1. , O. 60, 1. , 0. 93/ 

DATA Y8, Y9, Y10, YU, Y12, Y13, Y14, Y15, Y16, Y17/1. 09, 1. 63, 0. 92, 1. 41, 
*0. 78, 1. 24, 0. 66, 1. 07, 0. 55, 0. 93/ 

DATA E5, E6, E7, E8, E9/0. 57, 0. 68, 0. 80, 0. 95, 1.14/ 

ROWS— 2. 0 

CHECK2=FA/ ( V*FR 1 ) 

IF (ANGLE. GT. 5. 0>GOT010 
CHECK 1 =FA/ ( RQWS*BALLS*D I A**2 > 

DO 1 1=1,9 

IF ( CHECK 1. GT. A(I). AND. CHECK1. LT. A(I + 1) >G0T02 
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1 CONTINUE 

IF< I. GT. 9)1=9 

2 I F ( CHECK2. LE. E 1 ( I ) > G0T03 
X=X1 

Y=Y1 ( I > 

G0T0999 

3 X=1 . 0 
Y=0. 0 
G0T0999 

10 CHECK1=FA/(BALLS*DIA**2> 

IF (ANGLE. GT. 10. 0)GOT020 
DO 11 1=1,9 

IF(CHECK1. GT. A(I). AND. CHECK1. LT. A( 1 + 1 ) >G0T012 

11 CONTINUE 

IF ( I. GT. 9)1=9 

12 IF(CHECK2. LE. E2( I ) ) GOTO 13 
X=X3 

Y=Y3( I ) 

G0T0999 

13 X=X2 
Y=Y2( I ) 

G0T0999 

20 IF ( ANGLE. GT. 10. )GOT030 
DO 21 1=1, 9 

IF(CHECK1. GT. A( I ) . AND. CHECK1. LT. A( 1 + 1 > )G0T022 

21 CONTINUE 

IF( I. GT. 9)1=9 

22 IF(CHECK1. LE. E3< I > >G0T023 
X=X5 

Y=Y5( I ) 

G0T0999 

23 X=X4 
Y=Y4< I ) 

G0T0999 

30 IF(ANGLE. GT. 15. )G0T040 
DO 31 1=1, 9 

IF(CHECK1. GT. A( I ) . AND. CHECK1. LT. A(I + 1 ) >G0T032 

31 CONTINUE 

IF< I. GT. 9)1=9 

32 IF (CHECK2. LE. E4( I ) )G0T033 
X=X7 

Y=Y7 ( I ) 

G0T0999 

33 X=X6 
Y=Y6( I ) 
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G0T0999 

40 IF (ANGLE. GT. 20. >G0T030 

IF ( CHECK2. LE. E5 ) GOT043 
X=X9 
Y»Y9 
G0T0999 

43 X=X8 

Y=Y8 
GOT0999 

30 IF(ANGLE. GT. 25. 0>G0T060 

IF(CHECK2. LE. E6)G0T053 
X=XU 
Y=Y1 1 
G0T0999 

53 X=X10 

Y=Y10 
G0T0999 

60 I F ( ANGLE. GT. 30. 0 ) G0T070 

IF<CHECK2. LE. E7)G0T063 
X=X13 
Y=Y13 
G0T0999 

63 X=X12 

Y=Y12 
G0T0999 

70 IF < ANGLE. GT. 35. 0 > G0T080 

IFCCHECK2. LE. E8)G0T073 
X=X15 
Y=Y1 5 
G0TQ999 

73 X=X14 

Y=Y14 
G0T0999 

80 IF ( CHECK2. LE. E9 ) G0T083 

X=X 1 7 
Y=Y17 
G0T0999 

83 X=X16 

Y=Y16 

999 RETURN 

END 

SUBROUTINE DPBVIN(NP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, EG, PG, 
1PHE1, PHSI1, THETA 1, CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, EGP1, ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, EGP2, 
3CASEG, GTL, AG, BG, ITYPEG1, NBG1, DG1, ACG1. AK3, BDCAG1, RFG1, EGG1, 
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4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, EGG2, MG/ GAMMA 1/ GAMMA/ 12, 
5ZZ1/ DP, DO, RPD, RP, ROD, RO, HK/ AOG, AOP, HT, BOO, BOP, PD, 

6ADJP1, ADJP2, ADJG1, ADJG2, ZIP) 

C 

C SPIRAL BEVEL INPUT 

C 

CHARACTER*? DATAFILE 

INTEGER NO. YES/ ANSWER/ CASEP. CASEG/ PTL/ GTL 
REAL NP, NO, MO, NBP1, NBP2, NBG1, NBG2 
PARAMETER ( NO* 'NO ', YES* ' YES ' > 

PI 1*3. 141592654 
WRITEd, 300) 

300 FORMAT!//' DUAL PINION SPIRAL BEVEL GEAR UNIT INPUTS'//) 
WRITEd, 999) 

READ(1, 99) ANSWER 
IF (ANSWER. EG. NO) GO TO 501 
WRITEd/ 502) 

502 FORMAT ( 'WHAT IS THE NAME OF THE INPUT FILE') 

READdz 503) DATAFILE 

503 FORMAT (A) 

0PEN(UNIT*55, F I LE=DAT AF I LE/ STATUS* 'UNKNOWN ' ) 

NRE=55 
GO TO 500 
501 NRE=1 
500 CONTINUE 

CALL GEARINP <NRE» NP, NG, AO, PHE, F, PHSI, ROT, SPR, 

♦THETA,- E, EG, PG) 

CALL GEAROUT (NP, NG, AO, PHE, F, PHSI, ROT, SPR, 

♦THETA, E, EG, PG) 

WRITEd, 1070) 

READ(NRE, *)LL1 
IF(LL1. EG. DG0T0500 
WRITEd, 5000) 

READ(NRE, *)ZIP 
PHE1=PHE*PI 1/180. 

PHSI 1*PHSI*P I 1/180. 

TI=TI*ROT 

THETA 1 *THETA*P 11/180. 

C 

C 

C ENTERING THE VALUES FOR THE PINION AND ITS BEARINGS 

C 

C 

WRITEd, 1074) 

600 CONTINUE 
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CALL CASEINPtNRE, CASEP, PTL, A P, BP ) 

CALL CASEOUT (CASEP, PTL, AP.BP) 

WRITEU, 1070) 

READtNRE, *)L1 
IF (LI. EQ. 1 ) G0T0600 

601 CONTINUE 
WRITEU, 1040) 

CALL BEARINPtNRE. ITYPEP1, NBP1, DPI* ACPI. AK1, BDCAP1, RFP1, E0P1. ADJP1) 
CALL BEAROUT ( I TYPEP 1 . NBP 1 , DP 1 * ACP 1 , AK 1 * BDC AP 1 * RFP 1 , EGP 1 , AD JP 1 ) 
WRITEU , 1070) 

READtNRE, *)L2 
IF(L2. EQ. 1 ) 00T0601 

602 CONTINUE 
WRITEU, 1045) 

CALL BEARINP(NRE, ITYPEP2, NBP2, DP2, ACP2, AK2* BDCAP2, RFP2, EGP2. ADJP2) 
CALL BEAROUT ( ITYPEP2, NBP2, DP2* ACP2, AK2, BDCAP2* RFP2, EGP2, ADJP2) 
WRITEU, 1070) 

READtNRE, *>L3 
IF(L3. EQ. 1 ) G0T0602 


INPUT THE GEAR AND ITS SUPPORTING BEARINGS 


WRITEU, 1075) 

603 CONTINUE 

CALL CASEINPtNRE, CASEG, GTL, AG, BG) 

CALL CASEOUT (CASEG, GTL, AG, BG) 

WRITEU, 1070) 

READ(NRE, *)L4 
IF (L4. EQ. 1 ) G0T0603 

604 CONTINUE 
WRITEU, 1040) 

CALL BEARINP(NRE, ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, EGG1, ADJG1 ) 
CALL BEAROUT (ITYPEG1, NBG1. DG1, ACG1, AK3, BDCAG1, RFG1, EGG1, ADJG1 ) 
WRITEU, 1070) 

READ(NRE, *)L5 
IF(L5. EQ. 1 ) GQT0604 

605 CONTINUE 
WRITEU. 1045) 

CALL BEARINP(NRE, ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, EGG2, ADJG2) 
CALL BEAROUT ( I TYPEG2, NBG2, DG2, ACG2. AK4, BDCAG2, RFG2, EGG2, AD JG2 ) 
WRITEU, 1070) 

READtNRE. *>L6 
IFtL6. EQ. DG0T0605 
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CLOSE (55) 

C 

C CALCULATION OF ©EAR RATIO AND OUTPUT SPEED 

C — —————— — 

MG=NG/NP 
SP EED2=SP EED / M© 

C 

C CALCULATION OF GAMMA 

C 

GAMMA 1 =AT AN ( S I N ( THETA 1 ) / ( MG+COS < THETA 1 ) > ) 
GAMMA=GAMMA 1*180. /PI I 
Z Z®THET A-GAMMA 
ZZ1=ZZ*PII/180. 

C 

C CALCULATION OF PITCH DIAMETER OF GEAR AND PINION 

C AND REFERENCE PITCH DIAMETER OF GEAR AND PINION 

C 

DP=( AO— F/2. >*(2. *SIN(GAMMA1> ) 

DG=( AO-F/2. )*<2. *SIN(ZZ1) ) 

PD=NG/DG 

RPD=DP*. 5/COS < GAMMA 1) 

RP=DP*. 5 

RGD=DG*. 5/COS (ZZ1 ) 

RG=DG*. 5 

c 

C WORKING DEPTH 

C 

HK=1. 70/PD 

C 

C ADDENDUM OF GEAR AND PINION 

C 

A0G=0. 46/PD+O. 390/ ( PD*MG**2 ) 

AQP=HK— AQG 

C 

C WHOLE DEPTH 

C 

IF (PD. LT. 10. ) GO TO 50 
HT=1. 888/PD 
GOTO 51 

50 HT=1. 888/PD+. 005 

51 CONTINUE 

c 

C DEDENDUM OF THE GEAR AND PINION 

C 

BOG=HT-AOG 
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BOP=HT-AOP 

C 

BOP=HT-AO 

999 FORMAT ( 'DO YOU WISH TO USE A DATA SET'/ 

*' ANSWER YES OR NO') 

1040 FORMAT( 'PINION BEARING #1') 

1045 FORMAT ( 'PINION BEARING #2') 

1046 FORMAT < 'GEAR BEARING #1') 

1047 FORMAT ( 'GEAR BEARING #2') 

1070 FORMAT ( 'DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS'/ 
♦'ENTER 1 TO CHANGE') 

1074 FORMAT ( 'PINION MOUNTING' ) 

1075 FORMAT ( 'GEAR MOUNTING' ) 

5000 FORMAT ( 'WHAT IS THE ANGLE BETWEEN THE TWO PINIONS') 

99 FORMAT (1A4) 

RETURN 

END 

SUBROUTINE CASEINP (NRE, CS, TL, A, B ) 

INTEGER CS. TL 

c . 

C INPUT FOR CASE OF BEARING AND GEAR MOUNTING 

C 

c 

WRITEd, 1017) 

READ < NRE. ♦)CS 
WRITEd, 1048) 

READ (NRE, ^)TL 
WRITEd, 1018) 

READ (NRE, ^)A 
WRITEd, 1019) 

READ (NRE, ^B 
IF(CS. EQ. 2)A=-A 

1017 FORMAT ( 'WHICH CASE OF BEARING PLACEMENT IS BEING USED'/ 
♦'CASE #1'/ 

♦ ' BEAR I NG GEAR BEAR I NG ' / 

♦' #1 # 2 '/ 

♦ '♦ A ♦ B ♦'// 

♦ 'CASE # 2 ' / 

♦ 'GEAR BEARING BEARING'/ 

*' #1 # 2 '/ 

*'♦ A ♦ '/ 

♦ '# B #') 

1048 FORMAT ( 'WHICH BEARING CARRIES THE THRUST LOAD'/ 
♦'BEARING #1 OR BEARING 42') 

1018 FORMAT! 'ENTER DISTANCE A - DISTANCE FROM ♦ TO ♦ (IN)') 


162 



1019 

100 

12 


C - 
C 

C - 
100 


C 

C 

C 


FORMAT ( 'ENTER DISTNACE 3 - DISTANCE FROM * TO * (IN)') 
FORMAT (FI 5. 5) 

FORMAT (ID 

RETURN 

END 

SUBROUTINE CASEOUT(CS, TL, A/ B) 

INTEGER CS, TL 

CASE ECHO 


WRITEd, 100)CS, TL* A, B 
FORMAT (/ 

* 'CASE NUMBER 

♦'BEARING TAKING THE THRUST LOAD 
♦'DISTANCE A 
♦'DISTANCE B 
RETURN 
END 

SUBROUTINE BEARINP(NRE, I TYPE# NB, 


13/ 

', 13/ 

', F14. 4/ 
', FI 4. 4/) 


D, AC, AK, BDCAP, RF> EG. ADJ) 


BEARING INPUT 


REAL NB 
WRITE(1, 1000) 

READ(NRE. ♦)ITYPE 

IF( I TYPE. EQ. 3. OR. I TYPE. EQ. 4)G0T0410 
IF ( ITYPE. GT. 4 ) G0T0400 
WRITEd, 1001) 

READ(NRE. ♦)NB 
WRITEd. 1002) 

READ(NRE. ^)D 
WRITEd. 1003) 

READ(NRE, ♦ JAC 
G0T0410 
400 CONTINUE 

IF( ITYPE. LE. 5)G0TQ410 
WRITEd, 1004) 

READ(NRE. ♦) AK 
410 CONTINUE 

WRITEd, 1005) 

READ(NRE, ♦) BDCAP 
IF (ITYPE. GT. 4 ) G0T0420 
WRITEd, 1007) 

READ(NRE, ♦)RF 
420 CONTINUE 
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WR I TE ( 1 , 1008) 

READ(NRE, *>EG 
WRITEd, 1010) 

READ(NRE, *)ADJ 

1000 FORMAT < 'TYPE OF BEARING - ENTER NUMBER'/ 

*' 1 - SINGLE ROW BALL BEARING'/ 

*' 2 - DOUBLE ROW BALL BEARING'/ 

*' 3 - SINGLE ROW ROLLER BEARING'/ 

*' 4 - DOUBLE ROW ROLLER BEARING'/ 

*' 5 - SINGLE ROW TAPERED ROLLER BEARING'/ 

*' 6 - DOUBLE ROW TAPERED ROLLER BEARING') 

1001 FORMAT ( 'NUMBER OF BALLS OR ROLLERS') 

1002 FORMAT < 'DIAMETER OF BALLS OR ROLLERS') 

1003 FORMAT < 'BEARING CONTACT ANGLE') 

1004 FORMAT ( 'WHAT IS THE RATIO OF BASIC RADIAL RATING TO'/ 
* 'BASIC THRUST RATING FOR TAPERED ROLLER BEARINGS') 

1005 FORMAT( 'ENTER THE BASIC DYNAMIC CAPACITY OF BEARING') 

1007 FORMAT ( 'ENTER THE ROTATION FACTOR'/ 

*'1.0 FOR INNER RACE ROTATION'/ 

*'1.2 FOR OUTER RACE ROTATION') 

1008 FORMAT ( 'WHAT IS THE WE I BULL EXPONENT FOR THE BEARING') 
1010 FORMAT ( 'WHAT IS THE LIFE ADJUSTMENT FACTOR') 

100 FORMAT (FI 5. 5) 

12 FORMAT (II) 

RETURN 

END 

SUBROUTINE BEAROUT ( ITYPE, NB, D, AC, AK, BDCAP, RF, EG, ADJ) 

C 

C BEARING ECHO 

C 

REAL NB 

WRITEd, 100) ITYPE, NB, D, AC, AK, BDCAP, RF, EG, ADJ 
100 FORMAT (/ 


* / 

TYPE OF BEARING 

', 13/ 

* ' 

NUMBER OF ROLLING ELEMENTS 

', F14. 5/ 

* ' 

DIAMETER OF ROLLING ELEMENTS 

', F14. 5/ 

* 7 

CONTACT ANGLE (BALL BEARING ONLY) 

', F14. 5/ 

* 7 

RADIAL TO THRUST RATIO'/ 


* 7 

(TAPER ROLLER BEARING ONLY) 

', F14. 5/ 

* 7 

BASIC DYNAMIC CAPACITY 

' , F14. 5/ 

* 7 

ROTATION FACTOR 

', F14. 5/ 

* 7 

WE I BULL EXPONENT 

', F14. 5/ 

* 7 

LIFE ADJUSTMENT FACTOR 

', F14. 5/) 


RETURN 

END 
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SUBROUTINE GEAR I NP (NRE, NP, NG, AOi PHE, F, PHSI, ROT, SPR, 

♦THETA, E, EG. PG) 

REAL NP.NG 
WRITE ( 1. 1050) 

READ (NRE, *)NP 
WRITE ( 1. 1051) 

READ(NRE. *>NG 
WRITEd, 1052) 

READ(NRE. *)A0 
WRITE<1. 1053) 

READ(NRE. *)PHE 
WRITEd. 1054) 

READ(NRE. *>F 
WRITEd, 1058) 

READ(NRE» *)PHSI 
WRITEd, 1059) 

READ( NRE, »)ROT 
WRITEd, 1060) 

READ (NRE, *)SPR 
WRITEd, 1061) 

READ ( NRE, *> THETA 
WRITEd, 1063) 

READ (NRE, *)E 
WRITEd, 1064) 

READ (NRE, *)EG 
WRITEd, 1065) 

READ (NRE, *>PG 

1050 FORMAT ( 'WHAT IS THE NUMBER OF TEETH ON THE PINION') 

1051 FORMAT ( 'WHAT IS THE NUMBER OF TEETH OF THE GEAR') 

1052 FORMAT ( 'WHAT IS THE CONE DISTANCE OF THE GEAR MESH') 

1053 FORMAT ( 'WHAT IS THE NORMAL PRESURE ANGLE (DEG)') 

1054 FORMAT ( 'WHAT IS THE FACE WIDTH OF THE GEAR MESH (IN)') 

1058 FORMAT ( 'WHAT IS THE SPIRAL ANGLE OF THE PINION') 

1059 FOR MAT ( 'WHAT IS THE DIRECTION OF PINION ROTATION'/ 

* 'LOOKING FROM THE APEX TO THE FACE OF THE PINION'/ 

♦ ' (COUNTERCLOCKWISE INPUT 1)'/ 

* ' (CLOCKWISE INPUT -1 >') 

1060 FORMAT ( 'WHAT IS THE HAND OF THE SPIRAL ANGLE ON THE PINION'/ 

♦ '(RIGHT INPUT 1 > '/ 

♦'(LEFT INPUT -1) ') 

1061 FORMAT ( 'WHAT IS THE SHAFT ANGLE BETWEEN THE CENTER LINE OF THE'/ 
♦'PINION SHAFT AND THE CENTER LINE OF THE GEAR SHAFT (DEG)') 

1063 FORMAT ( 'WHAT IS THE MESH MATERIAL CONSTANT (PSI)') 

1064 FORMAT ( 'WHAT IS THE MESH WE I BULL EXPONENT') 

1065 FORMAT ( 'WHAT IS THE MESH LOAD-LIFE FACTOR') 
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RETURN 

END 

SUBROUTINE GEAR0UT(NP, NO, AO, PHE, F, PHSI, ROT, 
♦THETA, E, EG, PG> 

REAL NP, NG 

WRITEC1, 1071 )NP, NG, AO, PHE, F, PHSI 
*, ROT, SPR, THETA, E, EG, PG 
FORMAT (/ 

*' NUMBER OF TEETH ON PINION 
*' NUMBER OF TEETH ON GEAR 
*' CONE DISTANCE 
*' NORMAL PRESSURE ANGLE 
*' FACE WIDTH 
*' SPIRAL ANGLE 
*' DIRECTION OF ROTATION 
*' HAND OF SPIRAL 

*' SHAFT ANGLE BETWEEN PINION AND GEAR 
*' GEAR MESH MATERIAL CONSTANT 
*' WE I BULL EXPONENT 
*' MESH LOAD LIFE FACTOR 
RETURN 
END 

SUBROUTINE CAP(T, TL10, N, DYCAPT, PGT) 


T SET OF TORQUES 

TL10 SET OF TRANSMISSION LIVES AT TORQUE 

N NUMBER OF DATA SETS 


DYCAPT DYNAMIC CAPACITY OF THE TRANSMISSION 
PGT LOAD LIFE EXPONENT FOR THE TRANSMISSION 

DIMENSION T(N), TL10(N), ALT( 100 ) , ALTL10 ( 100 ) 

DO 20 1=1, N 

ALT < I >=ALOG(T( I ) ) 

ALTL 10(1) = ALOG ( TL 10(1) ) 

CONTINUE 

CALL LEASQR (N, ALTL 10, ALT, TINT, SLOPE) 

DYCAPT=EXP (TINT ) 

PGT=— 1 . /SLOPE 

RETURN 

END 

SUBROUTINE DPBVOT(PD, PHE, PHSI, SPR, F, AO, SI, SOF, ROT, TIR, TIL, TOF, 
1 THETA, NP, GAMMA, DR, RPD, AOP, BOP, 

2PXPR, PYPR, PZPR, TOTFORR, DCAPR, CASEP, AP, BP, 

3R1XPR, R1YPR, R1ZPR, TOFORP1R, BDCAP10R, 
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4R2XPR, R2YPR, R2ZPR, T0FQRP2R, BDCAP20R, 
2PXPL, PYPL, PZPL, TOTFORL, DCAPL, CASEP, AP, BP/ 
3R1XPL/ R1YPL, R1ZPL/ TQFORP1L/ BDCAPIOL/ 
4R2XPL/ R2YPL, R2ZPL# T0FQRP2L/ BDCAP20L/ 

5NG, ZZ, DG, RGB. AOG, BOG/ 

6PXGR, PYGR, PZGR/ TOTFORGE, DC AG/ CASEG, AG, BG, 
6PXGL, PYGL, PZGL, TOTFORGE, DCAG, CASEG, AG, BG, 
7R1XG, R1YG, R1ZG, TOFORG1, B DC AGIO, 

8R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20, 

9D1, PI, LI, HI, El > 


PRINT OUT RESULTS 


REAL NP, NG, Dl<9), Pl(9>, Ll<9>» HI (9), El(9) 

INTEGER CASEP, CASEG 
WRITEd, 1000) 

1000 FORMAT </// 

1' SPIRAL BEVEL GEAR UNITV//) 

WRITEd, 1200)PD, PHE, PHSI, SPR, F, AO, SI, SOF 
*, ROT, TIR, TIL, TOF, THETA 
WRITEd, 1208) 

WRITEd, 1 202 ) NP , GAMMA, DP, RPD, AOP, BOP, PXPR, PYPR, PZPR 
♦, TOTFORR, DCAPR 

WRITEd, 1205) CASEP, AP, BP, R1XPR, R1YPR, R1ZPR 
*, T0F0RP1R, BDCAP10R, R2XPR, R2YPR, R2ZPR, T0F0RP2R, BDCAP20R 
WRITEd, 1209) 

WRITEd, 1 202 ) NP , GAMMA, DP, RPD, AOP, BOP, PXPL, PYPL, PZPL 
*, TOTFORL, DCAPL 

WRITEd, 1205) CASEP, AP, BP, R1XPL, R1YPL, R1ZPL 
♦ , T0F0RP1L, BDCAPIOL, R2XPL, R2YPL, R2ZPL, T0F0RP2L, BDCAP20L 
WRITEd, 1210) 

WRITEd, 1202 ) NG, 11 , DG, RGD, AOG, BOG, PXGR, PYGR, PZGR, 
♦TOTFORGE, DCAG 
WRITEd, 1230) 

WRITEd, 1202 ) NG, ZZ, DG, RGD, AOG, BOG, PXGL, PYGL, PZGL, 
♦TOTFORGE, DCAG 

WR I TE <1 , 1 205 ) CASEG, AG, BG, R 1 XG, R 1 YG, R 1 ZG 
*, T0F0RG1, BDCAG10, R2XG, R2YG, R2ZG, T0F0RG2, BDCAG20 
1200 FORMAT < // ' GEAR MESH CHARACTERISTICS '// 


* ' 

PITCH 

', F8. 2/ 

* ' 

NORMAL PRESSURE ANGLE 

', F8. 2/ 

* ' 

SPIRAL ANGLE 

', F8. 2/ 

* ' 

HAND OF THE SPIRAL OF THE PINION GEAR 

7 , F8. 3/ 

* ' 

FACE WIDTH 

', F8. 3, 

* / 

CONE DISTANCE 

F8. 3, 
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1202 


1205 


1208 

1209 

1210 

1230 


INPUT SPEED OF THE PINION SHAFT 
OUTPUT SPEED OF GEAR SHAFT 
DIRECTION OF INPUT SHAFT ROTATION 
INPUT TORQUE OF THE RIGHT PINION SHAFT 
INPUT TORQUE OF THE LEFT PINION SHAFT 
OUTPUT TORQUE OF THE GEAR SHAFT 
ANGLE BETWEEN INPUT AND OUTPUT SHAFT 
FORMAT ( 

*' NUMBER OF TEETH 
*' PITCH ANGLE 
PITCH DIAMETER 
REFERENCE PITCH DIAMETER 
ADDENDUM 
DEDENDUM 

FORCES ON A TOOTH IN THE MESH'// 
AXIAL FORCE 
RADIAL FORCE 
TANGENTIAL FORCE 
TOTAL FORCE 

DYNAMIC CAPACITY IN FORCE 
FORMAT ( ' MOUNTING CHARACTERISTICS'// 

*' TYPE OF MOUNTING 
*' DISTANCE A 
DISTANCE B 
AXIAL LOAD 
RADIAL LOAD 
TANGENTIAL LOAD 
TOTAL EQUIVALENT FORCE 
BASIC DYNAMIC CAPACITY OF BEARING #1 
AXIAL LOAD 
RADIAL LOAD 
TANGENTIAL LOAD 
TOTAL EQUIVALENT FORCE 
BASIC DYNAMIC CAPACITY OF BEARING #2 
FORMAT ! // ' RIGHT PINION CHARACTERISTICS 
FORMAT (//' 


# ' 
* ' 
* ' 
*' 
»' 
*' 
*' 


*' 
*' 
*' 
*' 
* ' 
» ' 
* ' 
» ' 
*' 
*' 


* ' 
* ' 
*' 
* ' 
*' 
*' 
* ' 
* ' 
*' 
*' 
*' 


, F10. 2 , 

' RPM'/ 


, F10. 2 , 

' RPM'/ 


i F8. 3/ 



* F10. 2 , 

' IN-LB 

'/ 

. F10. 2i 

' IN-LB 

'/ 

* F10. 2 , 

' IN-LB 

'/ 

, F8. 2 , ' 

DEG ' / ) 


. F8. 2/ 



, F8. 2 , ' 

DEG'/ 


, F8. 2 , ' 

IN'/ 


i F8. 3, ' 

IN'/ 


, F8. 3, ' 

IN'/ 


, F8. 3 , ' 

IN'/ 


, F9. 1, ' 

LB'/ 


, F9. 1, ' 

LB'/ 


, F9. 1, ' 

LB'/ 


/ F9. 1, ' 

LB'/ 


, F9. 1. ' 

LB'/) 


’/ 15/ 



'» F8. 3/ 




, F8. 3// 
, F10. 2 , 

, F10. 2 , 

, F10. 2 , 
, F10. 2 , 

, F10. 1, 

, F10. 2, 

, F10. 2 , 
, F10. 2 , 

, F10. 2, 


F10. 1, ' 
AND MOUNTING 
LEFT PINION CHARACTERISTICS AND MOUNTING 


LBS'/ 

LBS'/ 

LBS'/ 

LBS'/ 

LBS'// 

LBS'/ 

LBS'/ 

LBS'/ 

LBS'/ 

LBS'//) 

'//) 

'//) 


FORMAT (// 

*' GEAR CHARACTERISTICS AND MOUNTING-MESH WITH RIGHT PINION'//) 
FORMAT (// 

*' GEAR CHARACTERISTICS AND MOUNTING-MESH WITH LEFT PINION'//) 
WRITE! 1, 1220) 

URXTEd. 1211) 

CALL DPLHEtDl ( 1 ) , PI ( 1 ) , LI ( 1 ) , HI ( 1 > i El ( 1 ) ) 

WRITE! 1, 1213) 

CALL DPLHE!D1(2), Pl!7), Li (2), HI! 2). El (2) ) 
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WRITEd, 1214) 

CALL DPLHE(D1 (3), PI <8), LI (3), HI (3), El (3) > 

WRITEd, 1212) 

CALL DPLHE <D1(7),P1(7)*L1(7),H1(7),E1(7) > 

WRITEd, 1215) 

CALL DPLHE <D1(8),P1(8),L1(8),H1<8),E1 (8) ) 

WRITEd, 1216) 

CALL DPLHE<D1<9), PI (9), LI (9), HI (9), El (9) ) 

WRITEd, 1217) 

CALL DPLHE (D1(4),P1<4),L1(4),H1(4),E1(4) ) 

WRITEd, 1218) 

CALL DPLHE(D1(5), Pl(5), LI (5), HI (5), El(5) 

WRITEd, 1219) 

CALL DPLHE<D1(6), PI (6>, LI (6), HI (6), El (6) > 

1220 FORMAT (//// 

*' DYNAMIC CAPACITY AND LIFE IN TERMS OF'/ 

*' OUTPUT TORQUE AND SPEED'//) 

1211 FORMAT ( ' RIGHT INPUT PINION'/) 

1213 FORMAT ( ' RIGHT INPUT BEARING #1'/) 

1214 FORMAT ( ' RIGHT INPUT BEARING #2'/) 

1212 FORMAT ( ' LEFT INPUT PINION'/) 

1215 FORMAT ( ' LEFT INPUT BEARING #1'/) 

1216 FORMAT ( ' LEFT INPUT BEARING #2'/) 

1217 FORMAT < ' OUTPUT GEAR'/) 

1218 FORMAT ( ' OUTPUT BEARING #1'/) 

1219 FORMAT ( ' OUTPUT BEARING #2'/) 

RETURN 

END 

SUBROUTINE DPLHE (DCAP, PG, LIFE, HOUR, EG) 

REAL DCAP, PG, LIFE, HOUR, EG 
C 
C 

c 

WR I TE (1 , 1221 ) DCAP , PG, L I FE, HOUR , EG 

1221 FORMAT ( 


* 7 

DYNAMIC CAPACITY 

', F14. 4, ' 

# 7 

LOAD LIFE EXPONENT 

', F14. 4/ 

* 7 

LIFE IN MILLION OUTPUT ROTATIONS 

', F14. 4/ 

* 7 

LIFE IN HOURS 

', F14. 4/ 

* 7 

WE I BULL EXPONENT 

', F14. 4/) 


RETURN 

END 

SUBROUTINE PLANCA ( ISTEP, NCOMP, MG1, NS, NPS, NPR, NR, PHIS1, PHIR1, 
IRS, RPS, RPR, RR, CB, A, V, PB, N, EB, FTT , 

2B1SM, PS, ES, WDSM, B1RM, PR, ER, WDRM, 
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3TI, TOF, SI, SOF, CS, LS, FS, CR, LR, FR, Dl, LIO, HI, El, 
4LPLAN, HPLAN, EPLAN) 


REAL NS, NPS, NPR, NR, N, LS, LR, LSIO, LPSlO, LPRIO, LPIO, LBIO, LPLAN 
REAL NCOMP<5), LIO ( 5) , El ( 5) , Dl<5>, Hl<5>. LRIO 


CALL BEAR (HOI, CB, A, V, PB, PHIR1, PHIS1, RR, RS, RPR, RPS, N, FTT, 

1 TI, TOF, SI, SOF, DB, LBIO, HBIO) 

L 1 0 ( 1 ) =LB 1 0 
HI <1 )=HB10 
El ( 1 )=EB 
Dl ( 1 )=DB 

CALL SUN(MG1, NS, PHIS1, B1SM, PS, ES, RR, RS, RPR, RPS, N, WDSM, 

1 TI, TOF, SI, SOF, CS, LS, FS, DS, LSIO, HSIO) 

LIO ( 2 ) =LS10 
HI <2>=HS10 
El (2)=ES 
D 1 ( 2 ) =DS 

CALL RING<MG1, NR, PHIR1, B1RM, PR, ER, RR, RS, RPR, RPS, N, WORM, 

1 TI, TOF, SI, SOF, CR, LR, FR, DR, LRIO, HRIO) 

L 1 0 < 3 ) =LR 1 0 
H1(3)=HR10 
E1(3)=ER 
Dl (3)=DR 

IFdSTEP. EG. 5)G0T025 

CALL PLANET 1 (MG1, ES, PS, ER, PR, RS, RR, RPS, RPR, TI, TOF, SI, SOF, 
* N, NPR, LS, FS, LR, FR, LPIO, DP, HP 10) 

E1<4)=ES 
L 1 0 < 4 ) =LP 1 0 
H 1 ( 4 ) =HP 1 0 
D 1 ( 4 ) =DP 
GO TO 26 
25 CONTINUE 

CALL PLANET2(MG1, NPS, LS, FS, PS, ES, RR, RS, RPR, RPS, N, 

1 TI, TOF, SI, SOF, CS, DPS, LPSlO, HPS10) 

L10<4)=LPS10 
HI <4)=HPS10 
El ( 4 ) =ES 
Dl (4)=DPS 

CALL PLANET3<MG1, NPR, LR, FR, PR, ER, RR, RS, RPR, RPS, N, 

1 TI, TOF, SI, SOF, CR, DPR, LPRIO, HPR10) 
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L10(5)*LPR10 
HI (5)=HPR10 
E1<5)=ER 
D1(5)=DPR 
26 CONTINUE 

CALL LIFECL10, I STEP, El, NCOMP, LPLAN, EPLAN) 

HPLAN=LPLAN* 16666. 667/SOF 

RETURN 

END 


SUBROUTINE BEAR (MG 1, CB, A, V, PB, PHIR, PHIS, RR, RS, RPR, RPS, N, FTT, 
* TI, TO, SI, SOF, DB, LBIO, HB10> 


BEAR CALCULATES THE BASIC DYNAMIC CAPACITY OF ONE PLANET 
BEARING AND THE LIO LIFE OF THE BEARING FOR THE GIVEN INPUT 
TORQUE IN TERMS OF SUN REVOLUTIONS. 


REAL A, N, V, CB, PB, RR, RS, TI, RPR, RPS, LBIO, PHIR, PHIS, 

1 TNPHIR, TNPHIS, MG1 

C 
C 

C THE VARIABLES PASSED TO THE PROGRAM ARE: 

C CB — BASIC DYNAMIC CAPACITY OF A SINGLE BEARING 

C A — COMPOSITE BEARING LIFE ADJUSTMENT FACTOR 

C PB — LOAD LIFE EXPONENT OF THE BEARING 

C RPR — PITCH RADIUS OF PLANET MESHING WITH THE RING 

C RPS — PITCH RADIUS OF PLANET MESHING WITH THE SUN 

C RR — PITCH RADIUS OF THE RING 

C RS — PITCH RADIUS OF THE SUN 

C TI — INPUT TORQUE TO THE SUN 

C V — OUTER RACE ROTATION LOAD ADJUSTMENT FACTOR 

C PHIR— PRESSURE ANGLE OF RING MESH RADIANS 

C PHIS — PRESSURE ANGLE OF SUN MESH RADIANS 

C N — NUMBER OF PLANET BEARINGS IN THE TRANSMISSION 

C THE VARIABLES PASSED FROM THE PROGRAM ARE: 

C DB — BASIC DYNAMIC CAPACITY OF ONE PLANET BEARING 

C LBIO — LIO LIFE OF ONE PLANET BEARING SUN REVS 

C 

C CALCULATE THE TANGENTS OF THE PRESSURE ANGLES 
C 


171 



no on noon noon on on on noon no no on 


TNPHIR=SIN(PHIR)/COS(PHIR) 

TNPHIS=SIN( PHIS) /COS (PHIS) 

FS: FORCE FROM SUN GEAR 
FS=TI/(N*RS) 

FR: FORCE FROM RING GEAR 
FR=RPS/RPR*FS 

FTT : TOTAL TANGENTIAL FORCE 
FTT=FS+FR 

FTR: TOTAL RADIAL FORCE 

FTR=FR*TNPH I R-FS*TNPH I S 

FB: TOTAL FORCE ON BEARING 
FB=V*SQRT ( FTT**2+FTR**2 ) 

AMGB: LOAD CYCLES PER INPUT REVOLUTION 
AMGB=A*RPR/RR 

LB 10: L10 LIFE OF ONE PLANET BEARING 
LB10=AMGB/MG1*(CB/FB)**PB 
HB10=LB1 0*1 6666. 667 /SOF 

DB: THE BASIC DYNAMIC CAPACITY OF ONE PLANET BEARING 

DB= ( AMGB /MG 1 ) ** ( 1 . O/PB ) * ( CB*TO/FB > 

RETURN 

END 


SUBROUTINE SUN(MG1/ NS, PHIS, B1SM, PS, ES, RR, RS, RPR, RPS, N, WDSM, 
1 TI, TO, SI, SOF, CS, LS, FS, DS, LS10, HS10) 


SUN CALCULATES THE BASIC DYNAMIC CAPACITY OF THE SUN GEAR AND 
THE L10 LIFE OF THE SUN GEAR FOR THE GIVEN INPUT TORQUE. 


REAL N, CS, DS, ES, NS, PS, RR, RS, TI, RPR, RPS, B1SM, LS10, 
1 PHIS, WDSM, LS, MG1 
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VARIABLES WHICH ARE PASSED TO THE PROGRAM: 

B ISM-MATERIAL CONSTANT FOR THE SUN-PLANET MESH 
ES— WE I BULL EXPONENT OF THE SUN MESH 
N— NUMBER OF PLANETS 
NS — NUMBER OF TEETH ON SUN 

PHIS— PRESSURE ANGLE OF THE SUN MESH RADIANS 
PS— LOAD LIFE FACTOR QF ONE TOOTH OF THE MESH 
RPR— PITCH RADIUS OF THE PLANET MESHING WITH RING 
RPS— PITCH RADIUS OF THE PLANET MESHING WITH SUN 
RR— PITCH RADIUS OF THE RING 
RS — PITCH RADIUS OF THE SUN 
TI — INPUT TORQUE TO THE SUN 
WDSM— EFFECTIVE FACE WIDTH OF THE MESH 
VARIABLES WHICH ARE PASSED FROM PROGRAM: 

DS — BASIC DYNAMIC CAPACITY OF THE SUN GEAR 

LSIO — LIO LIFE OF THE SUN GEAR SUN REVS 

CS — BASIC DYNAMIC CAPACITY OF ONE TOOTH OF THE MESH 


CALCULATE THE CAPACITY OF ONE TOOTH IN THE SUN MESH 
CS=BASCAP<RS, RPS, PHIS, WDSM, B1SM) 

FS: FORCE ON SUN GEAR 
FS=TI/(N*RS> 

LS: LIFE OF ONE TOOTH ON THE SUN GEAR 
LS=(CS/FS)**PS 

AMGS: LOAD CYCLES PER INPUT REVOLUTION 
AMGS= ( RS*RPR ) / ( N*RR*RPS ) 

LSIO: LIO LIFE OF THE SUN GEAR 

LS10=<1. /NS)*»<1. /ES>*AMGS/MG1*LS 
HS1 0=1 6666. 667*LS10/S0F 

DS: BASIC DYNAMIC CAPACITY OF THE SUN GEAR 

DS=( 1. 0/NS)**<l. 0/ES/PS)*< AMGS/MG1 >*•*( 1. /PS)*<CS/FS*TO> 

RETURN 

END 
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SUBROUTINE PLANET1 (MCI , ES, PS# ER# PR# RS# RR, RPS. RPR. TI# TO# SI. SOF# 
* N, NP.LS# FS.LR.FR, LP 10# DP# HP 10) 


PLANET CALCULATES THE BASIC DYNAMIC CAPACITY OF A PLANET GEAR 
AND THE L10 LIFE OF A PLANET GEAR FOR THE GIVEN INPUT TORQUE. 


REAL N, NP, LP10, LS, LR, LP, MG1 


VARIABLES WHICH ARE PASSED TO THE PROGRAM: 

ES — WEIBULL EXPONENT OF THE PLANET-SUN MESH 
PS — LOAD LIFE FACTOR OF THE PLANET-SUN MESH 
ER — WEIBULL EXPONENT OF THE PLANET-RING MESH 
PR — LOAD LIFE FACTOR OF THE PLANET-RING MESH 
RS — PITCH RADIUS OF THE SUN 
RR— PITCH RADIUS OF THE RING 

RPS — PITCH RADIUS OF THE PLANET MESHING WITH SUN 
RPR — PITCH RADIUS OF THE PLANET MESHING WITH RING 
TI — INPUT TORQUE TO THE SUN LB-IN 
N — NUMBER OF PLANETS 
NP — NUMBER OF TEETH ON THE PLANET 
LS — LIFE OF ONE TOOTH IN THE PLANET-SUN MESH 
FS — FORCE ON ONE TOOTH IN THE PLANET-SUN MESH 
LR — LIFE OF ONE TOOTH IN THE PLANET-RING MESH 
FR — FORCE ON ONE TOOTH IN THE PLANET-RING MESH 
VARIABLES WHICH ARE PASSED FROM PROGRAM: 

DP — BASIC DYNAMIC CAPACITY OF THE PLANET 
LP10 — L10 LIFE OF THE PLANET SUN REVS 


AMGP : LOAD CYCLES PER INPUT REVOLUTION 
AMGP=RPR/RR 

LP: LIFE OF ONE TOOTH OF PLANET DUE TO DUAL LOADING 
LP= < LS*LR ) / < LS**ES+LR**ES ) ** < 1 . /ES ) 

LP10: LIFE OF STEPPED PLANET GEAR 

LP10=< 1. 0/NP)**( 1. 0/ES>*AMGP/MGl*LP 
HP 10= 16666. 667*LP 10/S0F 

DP: DYNAMIC CAPACITY OF PLANET GEAR 

DP= ( 1 . 0/NP)**(l. 0/ES/PS)*< AMGP/MG1 )**( 1. O/PS) 

1 *LP** ( 1 . O/PS ) *T0 
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RETURN 

END 

SUBROUTINE PLANET2<MG1, NP, LS, FS, PS, ES, RR, RS, RPR, RPS, N, 
1 TI, TO, SI, SOF, CS. DPS, LPSIO, HPS10) 


PLANET2 CALCULATES THE BASIC DYNAMIC CAPACITY OF THE 
PANET-SUN GEAR AND THE LIO LIFE OF THE PANET-SUN GEAR 
FOR THE GIVEN INPUT TORQUE. 


REAL N, CS, DPS, ES, NP, PS, RR, RS, TI, RPR, RPS, LPSIO, 
1 LS, MG1 


VARIABLES WHICH ARE PASSED TO THE PROGRAM: 

LS — LIFE OF ONE TOOTH IN THE PLANET-SUN MESH 
FS — FORCE ON ONE TOOTH IN THE PLANET-SUN MESH 
ES— WE I BULL EXPONENT OF THE SUN MESH 
N — NUMBER OF PLANETS 
NS — NUMBER OF TEETH ON SUN 

PS — LOAD LIFE FACTOR OF ONE TOOTH OF THE MESH 
RPR — PITCH RADIUS OF THE PLANET MESHING WITH RING 
RPS — PITCH RADIUS OF THE PLANET MESHING WITH SUN 
RR— PITCH RADIUS OF THE RING 
RS — PITCH RADIUS OF THE SUN 
TI — INPUT TORQUE TO THE SUN 
VARIABLES WHICH ARE PASSED FROM PROGRAM: 

DS — BASIC DYNAMIC CAPACITY OF THE SUN GEAR 
LSIO — LIO LIFE OF THE SUN GEAR SUN REVS 


AMGP: LOAD CYCLES PER INPUT REVOLUTION 
AMGP=RPR/RR 

LSIO: LIO LIFE OF THE SUN GEAR 

LPS10=( 1. /NP )**( 1. / ES ) * AMGP / MG 1 *LS 
HPS10=LPS10*16666. 667/SOF 

DS: BASIC DYNAMIC CAPACITY OF THE SUN GEAR 

DPS=< 1. O/NP )** ( 1 . 0/ES/PS>*( AMGP/MG1 )**( 1. /PS ) * ( CS/FS*TO ) 

RETURN 

END 
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SUBROUTINE PLANET3<MG1, NP, LR, FR, PR# ER# RR. RS# RPR. RPS. N» 
1 TI# TO. SI# SOF. CR# DPR, LPRIO, HPRIO) 


PLANET3 CALCULATES THE BASIC DYNAMIC CAPACITY OF THE 
PLANET-RING GEAR AND THE HO LIFE OF THE PLANET-RING 
GEAR FOR THE GIVEN INPUT TORQUE. 


REAL N, CR, DR, ER, NP, PR, RR, RS, TI, RPR, RPS, LPRIO, 
1 LR, MG1 


VARIABLES WHICH ARE PASSED TO THE PROGRAM: 

LR — LIFE OF ONE TOOTH IN THE PLANET-RING MESH 
FR — FORCE ON ONE TOOTH IN THE PLANET-RING MESH 
ER — WE I BULL EXPONENT OF THE RING MESH 
NP — NUMBER OF TEETH ON ONE PLANET 
NR — NUMBER OF TEETH ON RING 

PR — LOAD LIFE FACTOR OF ONE TOOTH OF THE MESH 
RPR — PITCH RADIUS OF THE PLANET MESHING WITH RING 
RPS — PITCH RADIUS OF THE PLANET MESHING WITH SUN 
RR — PITCH RADIUS OF THE RING 
RS— PITCH RADIUS OF THE SUN 
TI — INPUT TORQUE TO THE SUN 
VARIABLES WHICH ARE PASSED FROM PROGRAM: 

DPR— BASIC DYNAMIC CAPACITY OF THE RING GEAR 
LPRIO— LIO LIFE OF THE RING GEAR SUN REVS 


AMGP : LOAD CYCLES PER INPUT REVOLUTION 
AMGP=RPR/RR 

LRIO: LIO LIFE OF THE RING GEAR 

LPR10=< 1. /NP ) ** ( 1 . /ER ) *AMGP/MG1*LR 
HPR10=LPR 10*16666. 667/SOF 

DR: THE BASIC DYNAMIC CAPACITY OF THE RING GEAR 

DPR=< 1. /NP ) **< 1 . /ER/PR ) * ( AMGP/MG1 ) ** ( 1 . /PR ) *CR*TO/FR 

RETURN 

END 


SUBROUTINE RINGCMGl, NR. PHIR, B1RM, PR, ER, RR, RS, RPR, RPS, N, WDRM, 
1 TI, TO, SI, SOF, CR, LR, FR, DR, LRIO, HR10) 
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RING CALCULATES THE BASIC DYNAMIC CAPACITY OF THE RING GEAR AND 
THE L10 LIFE OF THE RING GEAR FOR THE GIVEN INPUT TORQUE. 


REAL N, CR, DR, ER, NR, PR, RR, RS, TI, RPR, RPS, B1RM, LRIO, 
1 PHIR, WDRM, LR, MG1 


VARIABLES WHICH ARE PASSED TO THE PROGRAM: 

B1RM — MATERIAL CONSTANT OF THE RING-PLANET MESH 
ER — WE I BULL EXPONENT OF THE RING MESH 
NP — NUMBER OF TEETH ON ONE PLANET 
NR — NUMBER OF TEETH ON RING 

PHIR — PRESSURE ANGLE OF THE RING MESH RADIANS 
PR — LOAD LIFE FACTOR OF ONE TOOTH OF THE MESH 
RPR — PITCH RADIUS OF THE PLANET MESHING WITH RING 
RPS — PITCH RADIUS OF THE PLANET MESHING WITH SUN 
RR — PITCH RADIUS OF THE RING 
RS — PITCH RADIUS OF THE SUN 
TI — INPUT TORQUE TO THE SUN 
WDRM — EFFECTIVE FACE WIDTH OF THE GEARS 
VARIABLES WHICH ARE PASSED FROM PROGRAM: 

DR — BASIC DYNAMIC CAPACITY OF THE RING GEAR 
LRIO — LIO LIFE OF THE RING GEAR SUN REVS 

CR — BASIC DYNAMIC CAPACITY OF ONE TOOTH OF THE RING MESH 


CALCULATE THE CAPACITY OF ONE TOOTH IN THE RING MESH 

THE -RR IN FUNCTION BASCAP INDICATES AN INTERNAL GEAR MESH. 

CR=BASC AP ( RPR, -RR. PHIR, WDRM, B1RM) 

FR: FORCE ON THE RING GEAR 
FR=RPS*TI / < RPR*RS*N ) 

LR: LIFE OF ONE TOOTH ON THE RING GERA 
LR=(CR/FR)**PR 

AMGR: LOAD CYCLES PER INPUT REVOLUTION 
AMGR=1. /N 

LRIO: LIO LIFE OF THE RING GEAR 

LR 1 0= ( 1 . /NR>**< 1 /ER >*AMGR/MG1*LR 
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HR10=LR10*16666. 667/SOF 
C 

C DR: THE BASIC DYNAMIC CAPACITY OF THE RING GEAR 

DR=(1. /NR ) ** < 1 . /ER/PR>*( AMGR/MG1 )**( 1. /PR >*CR*TO/FR 
RETURN 
END 
C 
C 

SUBROUTINE PLANIN(CB, A, V, EB, PB, N, NCOMP, PDS, PDR, NS, PHIS, PHIS1, 
1PHIR, PHIR1, WDSM, ES, PS, B1SM, ISTEP, NPS, NPR, NR, WDRM, ER, PR, B1RM, 
2RPR, RPS, RR, RS) 

CHARACTER*9 DATAFILE 
REAL N, NCOMP < 5 ) , NS, NPS, NPR , NR 
INTEGER NO, YES, ANSWER 
PARAMETER <NO= 'NO ', YES* 'YES ' > 

WRITE( 1,300) 

300 FORMAT ( // ' PLANETARY GEAR UNIT INPUTS'//) 

WRITE ( 1, 999) 

999 FORMAT ( 'DO YOU WISH TO USE A DATA FILE (YES OR NO)') 

READ (1, 110) ANSWER 

IF < ANSWER. EG. NO) GO TO 501 

WRITEd, 502) 

502 FORMAT ( 'WHAT IS THE NAME OF THE INPUT FILE') 

READ(1, 503) DATAFILE 

503 FORMAT ( A ) 

0PEN(UNIT=56, FILE*DATAFILE, STATUS* 'UNKNOWN ' ) 

NRE=56 
GO TO 500 
501 NRE=1 
500 CONTINUE 
C 
C 
C 

WRITEd, 1000) 

READ ( NRE, *>CB 
WRITEd, 1010) 

READ (NRE, *)A 
WRITEd, 1020) 

READ (NRE, *) V 
WRITEd, 1030) 

READ (NRE, *)EB 
WRITEd, 1040) 

READ (NRE, *)PB 
WRITEd, 1050) 

READ (NRE, *)N 
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NCOMP (1 )=N 
NC0MP(2)*1. 

NC0MP(3) = 1. 

NC0MP(4)=N 
NCOMP < 5 ) =N 
WRITE ( 1* 1060) 

READ<NRE» 1 10 > ANSWER 

IF (ANSWER. EQ. YES)WRITE(1, 1070) 

IF (ANSWER. EQ. N0)WRITE(1> 1080) 

READ (NRE, *)PDS 

IF (ANSWER. EQ. YES)PDR*PDS 

IF (ANSWER. EQ. NO) READ (NRE, *)PDR 

WRITEd, 1090) 

READ ( NRE, *> NS 
WRITEd, 1100) 

READ(NRE, 110) ANSWER 

IF( ANSWER. EQ. YES) WRITEd, 1110) 

IF (ANSWER. EQ. N0)WRITE(1, 1120) 

READ(NRE, *>PHIS 

IF (ANSWER. EQ. YES)PHIR»PHIS 

IF (ANSWER. EQ. NO)READ(NRE, *)PHIR 

PHIS1=PHIS*3. 1415927/180. 0 

PHIR1=PHIR*3. 1415927/180. 0 

WRITEd, 1130) 

READ(NRE, *>WDSM 
WRITEd, 1140) 

READ(NRE, *)ES 
WRITEd, 1150) 

READ(NRE, *)PS 
WRITEd, 1160) 

READ(NRE, *)B1SM 
WRITEd, 1170) 

READ(NRE, 110) ANSWER 
ISTEP=4 

IF( ANSWER. EQ. NO ) WR I TE ( 1 » 1180) 

IF (ANSWER. EQ. YES)WRITE( 1, 1190) 
IF (ANSWER. EQ. YES) ISTEP=5 
READ(NRE, *)NPS 
IF (ANSWER. EQ. NO)NPR=NPS 
IF (ANSWER. EQ. YES) READ (NRE, *)NPR 
WRITEd, 1200) 

READ (NRE, *)NR 
WRITEd, 1210) 

READ (NRE, *)WDRM 
WRITEd, 1220) 


179 



READ(NRE» *>ER 
WRITEd, 1230) 

READ<NRE, *)PR 
WRITEd, 1240) 

READ(NRE, *)B1RM 
CLOSE (56) 

C 

C 

C 

RPR=NPR/2. O/PDR 
RPS=NPS/2. O/PDS 
RR=NR/2. O/PDR 
RS=NS/2. O/PDS 
C 

C INPUT WRITE FORMATS 
C 

110 FORMAT (1A4) 

1000 FORMAT (20X, 'PLANETARY TRANSMISSION RELIABILTY ANALYSIS'//. 

1 20X, '(ALL NUMERICAL INPUT MUST BE IN F-FORMAT) '//, 

2 5X, 'WHAT IS THE BASIC DYNAMIC CAPACITY OF ONE PLANET', 

3 ' BEARING? (LB)') 

1010 FORMAT ( 5X, 'WHAT IS THE COMPOSITE LIFE ADJUSTMENT FACTOR?') 

1020 FORMAT ( 5X, 'WHAT IS THE OUTER RACE ROTATION FACTOR?') 

1030 FORMAT ( 5X, 'WHAT IS THE WE I BULL FACTOR FOR THE BEARINGS?') 

1040 FORMAT ( 5X, 'WHAT IS THE LOAD-LIFE FACTOR FOR THE BEARINGS?') 

1050 FORMAT ( 5X, 'HOW MANY PLANET BEARINGS ARE IN THE TRANSMISSION?') 

1060 FORMAT ( 5X> 'IS THE DIAMETRAL PITCH THE SAME FOR BOTH MESHES?') 

1070 FORMAT (5X, 'WHAT IS THE DIAMETRAL PITCH OF THE TRANSMISSION?', 

1 ' (TEETH/IN)') 

1080 FORMAT (5X, 'ENTER THE DIAMETRAL PITCH OF THE SUN MESH FIRST, '/, 

1 5X, 'THEN, ENTER THE DIAMETRAL PITCH OF THE RING MESH. ', 

2 ' (TEETH/IN)') 

1090 FORMAT (5X, 'HOW MANY TEETH DOES THE SUN GEAR HAVE ON IT?') 

1100 FORMAT (5X, 'IS THE PRESSURE ANGLE FOR THE SUN MESH AND'/, 

1 5X, 'THE RING MESH THE SAME?') 

1110 FORMAT ( 5X, 'WHAT IS THE PRESSURE ANGLE? (DEG)') 

1120 FORMAT ( 5X, 'ENTER THE PRESSURE ANGLE FOR THE SUN MESH FIRST, '/, 

1 5X» 'THEN ENTER THE PRESSURE ANGLE OF THE RING MESH. (DEG)') 

1130 FORMAT ( 5X» 'WHAT IS THE FACE WIDTH OF THE SUN MESH? (IN)') 

1140 FORMAT ( 5X, 'WHAT IS THE WE I BULL EXPONENT OF THE SUN MESH?') 

1150 FORMAT (5X, 'WHAT IS THE LOAD-LIFE FACTOR OF THE SUN MESH?') 

1160 FORMAT ( 5X, 'WHAT IS THE MATERIAL CONSTANT OF THE SUN MESH? (PSI)') 

1170 FORMAT (5X, 'DOES THE TRANSMISSION HAVE STEPPED PLANETS?') 

1180 FORMAT (5X, 'HOW MANY TEETH DOES ONE PLANET GEAR HAVE?') 

1190 FORMAT ( 5X, 'ENTER THE NUMBER OF TEETH ON ONE PLANET MESHED'/, 
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1 5X, 'WITH THE SUN, THEN ENTER THE NUMBER OF TEETH ON THE'/, 

2 5X, 'PLANET MESHED WITH THE RING. ') 

1200 FORMAT <5X, 'HOW MANY TEETH ARE ON THE RING GEAR?') 

1210 FORMAT (5X, 'WHAT IS THE FACE WIDTH OF THE RING GEAR MESH? (IN)') 

1220 FORMAT <5X, 'WHAT IS THE WE I BULL EXPONENT OF THE RING GEAR MESH?') 

1230 FORMAT <5X, 'WHAT IS THE LOAD-LIFE FACTOR OF THE RING GEAR MESH?') 

1240 FORMAT (5X, 'WHAT IS THE MATERIAL CONSTANT OF THE RING GEAR MESH?', 

1 ' (TEETH/IN)') 

RETURN 

END 

C 

SUBROUTINE PLANOT < ISTEP, N, V, CB, FB, NS, PDS, PHIS, WDSM, B1SM, FS, 

1NR, PDR, PHIR, WDRM, B1RM, FR, NP, NPS, NPR, TI, TOF, SI, SOF, FTT, 

2D1, PI, LI, HI, El) 

REAL N, NS, NR, NP. NPS, NPR, Dl(5>, Pl<5>, Ll<5>, El(5>, Hl<5> 

WRITE(1, 5049 ) T I , TOF, SI, SOF 
WRITE(1, 5002) 

DBl=Dld)*FTT/TOF 
WRITEd, 5051 )N. V, CB, DB1, FTT 
WRITEd, 5000) 

DS1=D1(2)*FS/T0F 

WRITEd, 5050 ) NS, PDS, PHIS, WDSM, B1SM, DS1, FS 
WRITEd. 5001) 

DR1=D1 (3>*FR/T0F 

WRITE ( 1, 5050) NR, PDR, PHIR, WDRM, B1RM, DR 1 , FR 
WRITEd, 5003) 

DP1=D1(4)*FS/T0F 
IF( ISTEP. EG. 5) GOTO 10 

WRITEd. 5050) NPS, PDS, PHIS, WDSM, B1SM, DPI, FS 
G0T020 

10 DPS1=D1 (4)*FS/T0F 

WRITEd, 5004) 

WRITEd, 5050) NPS. PDS, PHIS, WDSM, B1SM, DPS1, FS 

DPR1=D1(5)*FR/T0F 

WRITEd, 5005) 

WRITEd. 5050) NPR, PDR, PHIR, WDRM, B1RM, DPR1, FR 
20 CONTINUE 

WRITEd, 4999) 

WRITEd, 5002) 

CALL DPLHE ( D 1 d ) , PI (1 ) . LI d ) . HI d ) , El d ) ) 

WRITEd, 5000) 

CALL DPLHE (D1 (2) , P 1 (2) , LI (2) , HI (2) , El (2) ) 

WRITEd, 5001) 

CALL DPLHE (D1 (3),P1(3),L1(3).H1(3),E1(3) ) 

IF ( ISTEP. EG. 5 ) GOTO 1 1 
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WRITEd, 5003) 

CALL DPLHE(D1 (4) * PI (4), LI (4) » HI (4), El ( 4) ) 

G0T021 

11 WRITEd, 5004) 

CALL DPLHE(D1 (4), P 1 ( 4 ) , LI (4) , HI (4) , El ( 4 ) ) 

WRITEd, 5005) 

CALL DPLHE(D1 (5), PI (5), Ll<5), HI (5), El (5) ) 

21 CONTINUE 

4998 FORMAT (//// 

1' PLANETARY GEAR UNIT'//) 

4999 FORMAT (//// 

*' DYNAMIC CAPACITY AND LIFE IN TERMS OF'/ 

*' OUTPUT TORQUE AND SPEED'//) 

5000 FORMAT (' SUN GEAR'/) 

5001 FORMAT ( ' RING GEAR'/) 

5002 FORMAT (' PLANET BEARING'/) 

5003 FORMAT ( ' PLANET GEAR ' / ) 

5004 FORMAT (' PLANET-SUN GEAR '/ ) 

5005 FORMAT ( ' PLANET-RING GEAR'/) 

5049 FORMAT (/// 

1' INPUT TORQUE ',F14. 5, ' LB-IN'/ 

2' OUTPUT TORQUE ',F14. 5, ' LB-IN'/ 

3' INPUT SPEED ', F14. 5, ' RPM'/ 

4' OUTUT SPEED ',F14. 5, ' RPM'/) 

5050 FORMAT (/ 

1 ' NUMBER OF TEETH. . ', FI 4. 5/ 

2' PITCH OF THE MESH ',F14. 5/ 

3' PRESSURE ANGLE ',F14. 5, ' DEG'/ 

4' FACE WIDTH ',F14. 5, ' IN'/ 

5' MATERIAL CONSTANT OF THE MESH ', F14. 5, ' P SI'/ 

6 ' DYNAMIC CAPACITY ', F14. 5, ' LBS'/ 

7' FORCE ON GEAR TOOTH ',F14. 5, ' LBS'/) 

5051 FORMAT (/ 

1 ' NUMBER OF PLANETS ', F14. 5, / 

2' ROTATIONAL FACTOR . ', F14. 5, / 

3' DYNAMIC CAPACITY (CATALOG VALUE) ',F14. 5, ' LBS'/ 

4' DYNAMIC CAPACITY (SYSTEM VALUE) ', F14. 5, ' LBS'/ 

5' TOTAL FORCE ',F14. 5, ' LBS'/) 

RETURN 

END 

SUBROUTINE SPBVCA( 

1TI, TOF, SI, SOF, MG, MG1, NP, NG, 

2 AO, GAMMA 1, ROT, SPR, PHE1, PHSI1, ZZ1, 

3PTL, AP, BP, RP, GTL, AG, BG, RG, 

4ITYPEP1, RFP1, NBP1, DPI, ACPI, BDCAP1, AK1, EGP1, ADJP1, 
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5ITYPEP2, RFP2, NBP2, DP2, ACP2, BDCAP2, AK2, EGP2, ADJP2* 

6ITYPEG1, RFG1, NBG1, DG1, ACG1, BDCAG1, AK3, EGGli AD JG 1 , 

7ITYPEG2, RFG2. NBG2, DG2, ACG2» BDCAG2, AK4. EGG2> ADJG2, 

8F« E, PG* EG* RPD. RGD* 

9PXP, PYP* PZP, TOTFOR, PXG, PYG, PZG, TOTFQR* 

1R1XP, R1YP, R1ZP* R2XP, R2YP* R2ZP* 

2R 1 XG, R 1 YG, R 1 ZG. R2XG. R2YG» R2ZG, 

3L10P1, H10P1* TOFORP 1 » PGP 1, BDCAPIO, BDCAPIOT, 

4L10P2* H10P2# T0F0RP2* PGP2* BDCAP20. BDCAP20T. 

5L10G1. H10G1* TOFORG1. PGG1, B DC AGIO* BDCAGiOT* 

6L10G2. H10G2* T0F0RG2* PGG2» BDCAG20. BDCAG20T > 

7LP10. HP 10, DCAP, DCAPT, 

8LG10, HG10, DC AG, DCAGT, 

9LSB, HSB, ESB) 

INTEGER PTL.GTL 

REAL L10P1, L10P2, L10G1, L10G2, LP10, LG10, LSB, LL(6> , EE (6) , NC0MP<6) 
REAL MG, MG1, NP, NG, NBP1, NBP2, NBG1, NBG2 
DATA NCOMP/1. , 1. , 1. , 1. , 1. , 1. / 

C 

C CALCULATION OF THE LOADS TRANSMITTED FROM THE PINION 

C 

CALL GPSPR (TI, AO, F, GAMMA 1, ROT, SPR, PHE1, PHSI1, PXP, PYP, PZP) 
TOTFOR=SQRT (PXP**2+PYP**2+PZP**2 ) 

C 

C CALCULATION OF THE LOADS TRANSMITTED TO THE GEAR FROM EACH PINION 

C 

TOUT=MG*TI 
ROT 1=— ROT 
SPR1=SPR 

CALL GPSPR < TOUT , AO, F, ZZ1. R0T1, SPR1, PHE1, PHSI1, PXG, PYG, PZG) 
c : 

C CHECK CASE FOR BEARING POSITION AND CALCULATE THE LOADS 

C ON THE BEARINGS TRANSMITTED FROM THE RIGHT PINION 

C 

IF<PTL. EQ. 2) GO TO 18 
R1XP=PXP 
R2XP=0. 0 
GO TO 19 

18 R1XP=0. O 
R2XP=PXP 

19 CONTINUE 

CALL BLC1 (PXP, PYP, PZP, AP, BP, RP, R1YP, R1ZP. R2YP, R2ZP ) 

C 

C CHECK CASE FOR BEARING POSITION CALCULATE THE LOADS 

C ON THE BEARINGS TRANSMITTED FROM THE GEAR DUE TO THE PINION 
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C — 

IF<GTL. EQ. 2) GO TO 22 
R1XG=PXG 
R2XG=0. 0 
GO TO 23 

22 R 1 XG=0. 0 
R2XG=PXG 

23 CONTINUE 

CALL BLC1 (PXG, PYG, PZG, AG, BG, RG, R1YG, R1ZG, R2YG, R2ZG) 

C 

C CALCULATE THE LIFE OF PINION BEARING #1 

c 

CALL BDC AP ( I TYPEP 1 , R1XP, R1YP, R1ZP. RFP1, NBP1, DPI, ACPI, SOF, ADJP1 
*, BDCAP1, L 1 OP 1 , H10P1, MG, MG1, AK1, TOFORP1, PGP1, BDCAPIO) 

BDC AP 1 OT=BDC AP 1 0*T0F/T0F0RP 1 

LL(2)=L10P1 

EE ( 2 ) =EGP 1 

c 

C CALCULATE THE LIFE OF PINION BEARING #2 

c 

CALL BDCAP ( ITYPEP2, R2XP, R2YP, R2ZP, RFP2, NBP2, DP2, ACP2, SOF, ADJP2 
*, BDCAP2, L10P2, H10P2, MG, MG1, AK2, T0F0RP2, PGP2, BDCAP 20) 

BDC AP20T =BDC AP20*T0F/T0FQRP2 

LL(3)=L10P2 

EE(3)=EGP2 

C 

C CALCULATE THE LIFE OF GEAR BEARING #1 

C 

CALL BDCAP ( ITYPEG1, R1XG, R1YG, R1ZG, RFG1 , NBG1, DG1 , ACG1, SOF, ADJG1 
*, BDCAG1 , L10G1 , H10G1 , 1. , MG1 » AK3, T0F0RG1 , PGG1 , BDCAG10 ) 
BDCAG10T=BDCAG10*T0F/T0F0RG1 
LL< 5 ) =L10G1 
EE( 5)=EGG1 

C 

C CALCULATE THE LIFE OF GEAR BEARING #2 

C 

CALL BDCAP < ITYPEG2, R2XG, R2YG, R2ZG, RFG2, NBG2, DG2, ACG2, SOF, ADJG2 
*, BDCAG2, L10G2, H10G2, 1. , MG1, AK4, T0F0RG2, PGG2, BDCAG20) 
BDCAG20T=BDCAG20*T0F/T0F0RG2 
LL(6)=L10G2 
EE ( 6 ) =EGG2 

C 

C CALCULATE THE LIFE OF THE GEAR 

C 

c 
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CALL SET(PHE1, F, E. MG. MG1, NP, NG. SOF, LPIO, HPIO, LGIO, 
*HG10, PG. EG. TOTFOR. RPD. RGD, DCAP, DC AG. TOTFOR ) 

DC AP T=DC AP *TOF / TOTFOR 

DC AGT =DC AG*TOF /TOTFOR 

LL(1)=LP10 

LL(4)=LG10 

EE ( 1 ) «EG 

EE ( 4 > =EG 


CALCULATE THE LIFE OF THE TRANSMISSION 


CALL LIFE(LL, 6, EE, NCOMP, LSB, ESB ) 

HSB=LSB* 16666. 667/SOF 

RETURN 

END 

C 

SUBROUTINE SET ( PHE> F, E, MG, MG1, NP, NG, SPEED2, LPIO, HPIO, LGIO 
*, HGIO, PG, EG, FOR, Rl, R2, DCAP, DCAG, FE) 

C 

C CALCULATION OF THE LIFE OF THE PINION AND GEAR MESH 

C 

c 

C INPUTS 
C 

C PHE -PRESSURE ANGLE OF THE MESH (RADIANS) 

C F -FACE WIDTH (IN) 

C E -MESH MATERIAL CONSTANT (PSI) 

C MG -GEAR RATIO 

C NP -NUMBER OF TEETH OF THE PINION 

C NG -NUMBER OF TEETH OF THE GEAR 

C SPEED2-SPEED OF OUTPUT SHAFT 

C PG -MESH MATERIAL CONSTANT 

C EG -MESH WE I BULL EXPONENT 

C FOR -TOTAL FORCE TRANSMITTED 

C Rl -REFERENCE PLANE RADIUS OF SPIRAL BEVEL PINION (IN) 

C R2 -REFERENCE PLANE RADIUS OF SPIRAL BEVEL GEAR (IN) 

C 

C OUTPUT 
C 

C LPIO -THE LIO LIFE OF THE PINION (CYCLES) 

C HPIO -THE LIO LIFE OF THE PINION (HOURS) 

C LGIO -THE LIO LIFE OF THE GEAR (CYCLES) 

C HGIO -THE LIO LIFE OF THE GEAR (HOURS) 

C DCAP -THE DYNAMIC CAPACITY OF THE PINION (LBS) 

C DCAG -THE DYNAMIC CAPACITY OF THE GEAR (LBS) 
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FOR -FORCE ON THE PINION 

FE -FORCE ON THE GEAR 

REAL NP, NG, MG, MG1, LP10, LGIO, LP10T, LG10T 
Fl=. 5*F 

CBG=BASCAP ( R 1 , R2, PHE, FI, E) 

CALCULATE LIFE OF GEAR TEETH 

LP 10T= ( CBG/FOR ) **PG 
LG10T=!CBG/FE)**PG 
VEG=1. /EG 
VPG=1. /PG 

CALCULATE LIFE OF PINION AND GEAR 

LP10=! 1. /NP)**VEG/MG/MG1*LP10T 
HP 1 0=LP 1 0* 1 6666 . 666/SPEED2 
LG 1 0= ( 1 . /NG)**VEG/MG1*LG10T 
HG10=LG1 0*1 6666. 666/SPEED2 

CALCULATE BASIC DYNAMIC CAPACITY OF PINION AND GEAR 

DCAP=! ( 1. /NP)**VEG/MG/MG1 )**VPG*CBG 
DCAG=!!1. /NG)**VEG/MG1)**VPG*CBG 
RETURN 
END 

SUBROUTINE SPBVIN(NP, NG, AO, PHE, F, PHSI, ROT, SPR, THETA, E, EG, PG, 
1PHE1, PHSI 1 , THETA 1 , CASEP, PTL, AP, BP, ITYPEP1, NBP1, DPI, ACPI, AK1, 
2BDCAP1, RFP1, EGP1, ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, EGP2, 
3CASEG, GTL, AG, BG, ITYPEG1 , NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, EGG1, 
4ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, EGG2, MG. GAMMA 1, GAMMA, ZZ, 
5ZZ1, DP, DG, RPD, RP, RGD, RG, HK, AOG. AOP. HT, BOG, BOP, PD, 

6ADJP1, ADJP2, ADJG1, ADJG2 > 

SPIRAL BEVEL INPUT 

CHARACTER*? DATAFILE 

INTEGER NO, YES, ANSWER. CASEP, CASEG, PTL, GTL 
REAL NP, NG, MG, NBP 1 , NBP2, NBG1, NBG2 
PARAMETER ( N0= "NO ' , YES= ' YES ' ) 

PI 1=3. 141592654 
WRITE! 1, 300) 

300 FORMAT! //' SPIRAL BEVEL GEAR UNIT INPUTS'//) 

WRITE! 1,999) 
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READd, 9'9) ANSWER 

IF ( ANSWER. EQ. NO) GO TO 501 

WRITE ( 1, 502) 

502 FORMAT ( 'WHAT IS THE NAME OF THE INPUT FILE') 

READ < 1 , 503) DATAFILE 

503 FORMAT ( A ) 

0PEN(UNIT=55, FILE=DATAFILE, STATUS* 'UNKNOWN ' > 

NRE=55 
GO TO 500 
501 NRE=1 
500 CONTINUE 

CALL GEAR INP( NRE, NP, NG, AO, PHE, F, PHSI, ROT, SPR, 

♦THETA, E, EG, PG) 

CALL GEAROUT <NP, NG, AO, PHE, F, PHSI, ROT, SPR, 

♦THETA, E, EG, PG) 

WRITEd, 1070) 

READ(NRE, ♦)LL1 
IF (LL1. EQ. DG0T0500 
P HE 1 =P HE^PII/180. 

PHSI 1=PHSI^PI 1/180. 

TI=TI^ROT 

THETA 1 =THET A^P 11/180. 

C 

C 

C ENTERING THE VALUES FOR THE PINION AND ITS BEARINGS 

C 

C 

WRITEd, 1074) 

600 CONTINUE 

CALL CASEINP(NRE, CASEP, PTL, AP, BP) 

CALL CASEOUT( CASEP, PTL, AP, BP) 

WR I TE ( 1, 1070) 

READ(NRE, ^)L1 
IF (LI. EQ. 1 ) G0T0600 

601 CONTINUE 
WRITEd, 1040) 

CALL BEARINP (NRE, ITYPEP1, NBP1, DPI, ACPI, AK1, BDCAP1, RFP1, EGP1, ADUP1 ) 
CALL BEAROUT ( I TYPEP 1 , NBP 1 , DP 1 , ACP 1 , AK 1 , BDC AP 1 , RFP 1 , EGP 1 , ADJP 1 ) 
WRITEd, 1070) 

READ (NRE, ♦ )L2 

IF ( L2. EQ. 1 )G0T0601 

602 CONTINUE 

WR I TE ( 1, 1045) 

CALL BEARINP (NRE, ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, EGP2, ADJP2) 
CALL BEAROUT ( ITYPEP2, NBP2, DP2, ACP2, AK2, BDCAP2, RFP2, EGP2, ADJP2) 
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WRITE < 1< 1070) 

READ (NRE, *>L3 
IF(L3. EQ. 1 ) GOT0602 
C 
C 

C INPUT THE GEAR AND ITS SUPPORTING BEARINGS 

C 

C 

WRITEd, 1075) 

603 CONTINUE 

CALL CASE I NP (NRE, CASEG. GTL. AG, BG) 

CALL CASEOUT( CASEG, GTL, AG, BG) 

WRITEd, 1070) 

READ (NRE, #)L4 
IF(L4. EQ. 1 ) G0T0603 

604 CONTINUE 
WRITEd, 1040) 

CALL BEARINP (NRE, ITYPEG1, NBG1, DG1, ACG1 , AK3, BDCAG1, RFG1, EGG1, ADJG1 ) 
CALL BEAROUT (ITYPEG1, NBG1, DG1, ACG1, AK3, BDCAG1, RFG1, EGG1, ADJG1) 
WRITEd, 1070) 

READ (NRE, *)L5 
IF(L5. EQ. 1 ) G0T0604 

605 CONTINUE 
WRITEd, 1045) 

CALL BEARINP (NRE, ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, EGG2, ADJG2) 
CALL BEAROUT (ITYPEG2, NBG2, DG2, ACG2, AK4, BDCAG2, RFG2, EGG2, ADJG2) 
WRITEd, 1070) 

READ (NRE, *)L6 
IF (L6. EQ. 1 ) G0T0605 
CLOSE (55) 

C 

C CALCULATION OF GEAR RATIO AND OUTPUT SPEED 

C 

MG=NG/NP 

SPEED2=SPEED/MG 

C 

C CALCULATION OF GAMMA 

C 

GAMMA 1 =ATAN ( S I N ( THETA 1 > / ( MG+COS ( THETA 1 > ) ) 

GAMMA=GAMMA 1*180. /PI I 
Z Z=THET A— GAMMA 
ZZ1=ZZ*PII/180. 

C 

C CALCULATION OF PITCH DIAMETER OF GEAR AND PINION 

C AND REFERENCE PITCH DIAMETER OF GEAR AND PINION 
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c 

DP=< AO-F/2. >*<2. *SIN(GAMMA1>) 

DG®( AO—F/2. >*<2. *SIN< ZZ1 ) ) 

PD*NG/DG 

RPD=DP*. 5/COS ( GAMMA 1) 

RP=DP*. 5 

RGD=DG*. 5/COS (ZZ1) 

RG»DG*. 5 

C 

C WORKING DEPTH 

C 

HK=1. 70/PD 

C 

C ADDENDUM OF GEAR AND PINION 

C 

A0G=0. 46/PD+O. 390/<PD*MG**2) 

AOP=HK-AOG 

C 

C WHOLE DEPTH 

C 

IF<PD. LT. 10. > GO TO 50 

HT=1. 888/PD 

G0T051 

50 HT=1. 888/PD+. 005 

51 CONTINUE 

C 

C DEDENDUM OF THE GEAR AND PINION 

C 

BOG=HT-AOG 

BOP=HT-AOP 

C 

BOP=HT-AO 

999 FORMAT ('DO YOU WISH TO USE A DATA SET'/ 

* 'ANSWER YES OR NO') 

1040 FORMAT < 'PINION BEARING #1') 

1045 FORMAT ( 'PINION BEARING #2') 

1046 FORMAT ( 'GEAR BEARING #1') 

1047 FORMAT ( 'GEAR BEARING #2') 

1070 FORMAT ( 'DO YOU WISH TO CHANGE ANY OF THESE PARAMETERS'/ 
* 'ENTER 1 TO CHANGE') 

1074 FORMAT ( 'PINION MOUNTING') 

1075 FORMAT ( 'GEAR MOUNTING') 

99 FORMAT (1A4) 

RETURN 

END 
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o o o 


SUBROUTINE SPBVOT(PD, PHE, PHSI, SPR, F, AO, SI» SOF, ROT# TI# TOF. THETA# 
1NP. QAMMA. DP, RPD# AOP# BOP# PD# 

2PXP# PYP, PZP# TOTFOR# DCAP, CASEP, AP, BP# 

3R1XP# R1YP, R1ZP, TOFORP1# BDCAPIO# 

4R2XP. R2YP, R2ZP, T0F0RP2, BDCAP20, 

5NG, ZZ, DG, RGD, AOG# BOG# 

6PXG, PYG# PZG. TOTFOR# DCAG, CASEG, AG, BG# 

7R1XG. R1YG# R1ZG. TOFORG1# B DC AGIO# 

8R2XG, R2YG# R2ZG# T0F0RG2, BDCAG20# 

9D1# PI, LI, HI, El) 


PRINT OUT RESULTS 


REAL NP, NG, Dl<6>, PI (6), LI (6), HI (6), El (6) 

INTEGER CASEP, CASEG 
WRITEU, 1000) 

1000 FORMAT (/// 

1' SPIRAL BEVEL GEAR UNIT'///) 

WRITEU, 1200) PD# PHE, PHSI, SPR, F# AO, SI, SOF 
*, ROT, TI, TOF, THETA 
WRITEU, 1209) 

WRITEU, 1 202 ) NP , GAMMA, DP, RPD, AOP, BOP, PXP, PYP, PZP 
*, TOTFOR, DCAP 

WRITEU, 1205) CASEP, AP, BP, R1XP, R1YP, R1ZP 
*, T0F0RP1, BDCAPIO, R2XP, R2YP, R2ZP, T0F0RP2, BDCAP20 
WRITEU, 1210) 

WRITEU, 1 202 ) NG, ZZ, DG, RGD, AOG, BOG, PXG, PYG, PZG, 
♦TOTFOR. DCAG 

WRITEU, 1205) CASEG, AG, BG, R1XG, R1YG, R1ZG 
*, T0F0RG1, B DC AGIO, R2XG, R2YG, R2ZG, T0F0RG2 
1200 FORMAT < / / ' GEAR MESH CHARACTERISTICS 


* ' 
* ' 

* ' 
* ' 

*' 
* ' 

*• 

* ' 
* ' 
*' 


1202 


PITCH 

NORMAL PRESSURE ANGLE 
SPIRAL ANGLE 

HAND OF THE SPIRAL OF THE PINION GEAR 
FACE WIDTH 
CONE DISTANCE 

INPUT SPEED OF THE PINION SHAFT 
OUTPUT SPEED OF GEAR SHAFT 
DIRECTION OF INPUT SHAFT ROTATION 
INPUT TORQUE OF THE PINION SHAFT 
OUTPUT TORQUE OF THE GEAR SHAFT 
ANGLE BETWEEN INPUT AND OUTPUT SHAFT 
FORMAT < 

*' NUMBER OF TEETH 


BDCAG20 

'// 

', F8. 2/ 
', F8. 2/ 
F8. 2/ 
o', F8. 3/ 
F8. 3, ' 
F8. 3, ' 
', F10. 2, 
', F10. 2, 
', F8. 3/ 
F10. 2, 
F10. 2, 
', F8. 2, ' 

F8. 2/ 


IN'/ 

IN'/ 

RPM'/ 

RPM'/ 

IN-LB'/ 
IN-LB'/ 
DEG ' / ) 
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1205 


* 7 

PITCH ANGLE 



', F8. 2, ' 

DEG'/ 

*' 

PITCH DIAMETER 



', F8. 2, ' 

IN'/ 

* 7 

REFERENCE PITCH DIAMETER 



', F8. 3, ' 

IN'/ 

* 7 

ADDENDUM 



', F8. 3, ' 

IN'/ 

* 7 

DEDENDUM 



', F8. 3, ' 

IN'/ 

*' 

FORCES ON A TOOTH IN THE MESH'// 



* 7 

AXIAL FORCE 



', F9. 1, ' 

LB'/ 

* 7 

RADIAL FORCE 



', F9. 1, ' 

LB'/ 

* 7 

TANGENTIAL FORCE 



', F9. 1, ' 

LB'/ 

* 7 

TOTAL FORCE 



', F9. 1, ' 

LB'/ 

* 7 

DYNAMIC CAPACITY IN FORCE 



', F9. 1, ' 

LB'/) 

FORMAT ( ' MOUNTING CHARACTERISTICS'// 



* 7 

TYPE OF MOUNTING 



',15/ 


* 7 

DISTANCE A 



', F8. 3/ 


* 7 

DISTANCE B 



', F8. 3// 


* 7 

AXIAL LOAD 



', F10. 2, 

' LBS'/ 

# 7 

RADIAL LOAD 



', FtO. 2, 

' LBS'/ 

* 7 

TANGENTIAL LOAD 



', F10. 2, 

' LBS'/ 

* 7 

TOTAL EQUIVALENT FORCE 



', F10. 2, 

' LBS'/ 

* 7 

BASIC DYNAMIC CAPACITY OF 

BEARING 

#1 

', F10. 1, 

' LBS'// 

* 7 

AXIAL LOAD 



', F10. 2, 

' LBS'/ 

* 7 

RADIAL LOAD 



', F10. 2, 

' LBS'/ 

* 7 

TANGENTIAL LOAD 



', F10. 2, 

' LBS'/ 

* 7 

TOTAL EQUIVALENT FORCE 



', F10. 2, 

' LBS'/ 

* 7 

BASIC DYNAMIC CAPACITY OF 

BEARING 

#2 

', F10. 1, 

' LBS'// 

* 7 

DYNAMIC CAPACITY IN FORCE 



', F9. 1, ' 

LB ' / > 
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1210 


FORMAT ( / / ' 

FORMAT < / / ' 
WRITEU, 1220) 
WRITEU, 1211) 
CALL DPLHE<D1 <1 > 
WRITE< 1» 1213) 
CALL DPLHE ( D1 ( 2 ) 
WRITEU, 1214) 
CALL DPLHE <D1 (3) 
WRITEU, 1217) 
CALL DPLHE (D1 (4) 
WRITEU, 1218) 
CALL DPLHE ( D1 ( 5 ) 


PINION CHARACTERISTICS AND MOUNTING 
GEAR CHARACTERISTICS AND MOUNTING 


'//) 

//> 


PKl), LIU), HKl >, El <1> ) 
PI (2) , LI (2) , HI ( 2) , El < 2 ) ) 
PI <3), LI (3), HI (3), El <3) ) 
P 1 ( 4 ) , Ll<4), HI (4) , El (4) ) 
P1(5)»L1(5)«H1(5)»E1(5>) 


WRITEU, 1219) 

CALL DPLHE ( D1 < 6 ) • P 1 ( 6 ) , LI (6) , HI (6 ) , El < 6 ) ) 


1220 FORMAT ( //// 


* ■ 

■» < 


1211 FORMAT ( 


DYNAMIC CAPACITY AND 
OUTPUT TORQUE 
INPUT PINION'/) 


LIFE IN TERMS OF'/ 
AND SPEED'//) 
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1213 FORMATS INPUT BEARING #1 '/> 

1214 FORMAT ( ' INPUT BEARING #2'/) 

1217 FORMAT (' OUTPUT GEAR ' / ) 

1218 FORMAT ( ' OUTPUT BEARING *17) 

1219 FORMAT ( ' OUTPUT BEARING #27) 
RETURN 

END 
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APPENDIX D 


SYMBOLS 

Variables 

A distance from gear to front bearing in inches 

A q distance from apex to back of gear along pitch ray in inches 

b major axis contact length in inches 

B distance from gear to rear bearing in inches 

B c back cone radius in inches 

B^ material constant in psi 

C dynamic capacity in pounds 

D gear diameter in inches or dynamic capacity in pound-inches 

D q distance from apex to center of gear along pitch ray in inches 

f face width in inches 

F bearing force in pounds 

1 life in million component cycles 

L life in million transmission cycles 

m gear ratio 

n number of planet gears 

N number of teeth 

P^ diametral pitch in 1.0/inches 

R gear radius in inches 
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S probability of survival 

T.j input torque in pound inches 
T q output torque in pound inches 
W gear load in pounds 

r cone angle in degrees 

A angle between input pinion shafts in degrees 

E shaft angle in degrees 

Ep curvature sum in 1.0/inches 

<l> pressure angle in degrees 

i|> spiral angle in degrees 


Superscripts 

e Wei bull slope 

p load-life factor 


Subscripts 

a axial 

b bearing 

bs bearing in sun rotation units 

g gear 

i i'th unit 

n normal 
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ne equivalent normal 

p pinion or planet 

pr planet meshing with ring 

ps planet meshing with sun 

pt planet tooth 

r ring or radial 

R combined radial 

rl left radial 

rr right radial 

s sun 

t tangential, thrust or tooth 

T combined tangential or transmission 

tl left tangential 

tr right tangential 

1 first 

2 second 

3 third 

10 90 percent reliability 
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